update to LAPACK/BLAS 3.12.1

git-svn-id: https://svn.r-project.org/R/trunk@87868 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

doc/NEWS.Rd

@@ -205,6 +205,10 @@
 
       \item New datasets \code{penguins} and \code{penguins_raw} thanks to
       \I{Ella Kaye}, \I{Heather Turner}, and \I{Kristen Gorman}.
+
+      \item The bundled BLAS and LAPACK sources have been upadted to
+      those shipped with Lapack 3.12.1.  This is almost entirely bug
+      fixes, but includes a handful of new ancilliary routines.
     }
   }
 

src/extra/blas/README

@@ -25,14 +25,17 @@ ztrmm ztrmv ztrsm ztrsv
 
 cmplxblas2.f90 contains dznrm2 and zrotg
 
+dgemmtr and zgemmtr were added for LAPACK 3.12.1 in R 4.5.0.
 
 ----------------------------------------
-cd lapack-3.12.0/BLAS/SRC
+cd lapack-3.12.1/BLAS/SRC
 
-cat dasum.f daxpy.f dcopy.f ddot.f dgbmv.f dgemm.f dgemv.f dger.f drot.f drotm.f drotmg.f dsbmv.f dscal.f dsdot.f dspmv.f dspr2.f dspr.f dswap.f dsymm.f dsymv.f dsyr2.f dsyr2k.f dsyr.f dsyrk.f dtbmv.f dtbsv.f dtpmv.f dtpsv.f dtrmm.f dtrmv.f dtrsm.f dtrsv.f idamax.f lsame.f > ../../blas.f
+cat dasum.f daxpy.f dcopy.f ddot.f dgbmv.f dgemm.f dgemmtr.f dgemv.f dger.f drot.f drotm.f drotmg.f dsbmv.f dscal.f dsdot.f dspmv.f dspr2.f dspr.f dswap.f dsymm.f dsymv.f dsyr2.f dsyr2k.f dsyr.f dsyrk.f dtbmv.f dtbsv.f dtpmv.f dtpsv.f dtrmm.f dtrmv.f dtrsm.f dtrsv.f idamax.f lsame.f > ../../blas.f
 
 cat dnrm2.f90 drotg.f90 > ../..//blas2.f90
 
-cat dcabs1.f dzasum.f izamax.f zaxpy.f zcopy.f zdotc.f zdotu.f zdrot.f zdscal.f zgbmv.f zgemm.f zgemv.f zgerc.f zgeru.f zhbmv.f zhemm.f zhemv.f zher2.f zher2k.f zher.f zherk.f zhpmv.f zhpr2.f zhpr.f zscal.f zswap.f zsymm.f zsyr2k.f zsyrk.f ztbmv.f ztbsv.f ztpmv.f ztpsv.f ztrmm.f ztrmv.f ztrsm.f ztrsv.f > ../../cmplxblas.f
+cat dcabs1.f dzasum.f izamax.f zaxpy.f zcopy.f zdotc.f zdotu.f zdrot.f zdscal.f zgbmv.f zgemm.f zgemmtr.f zgemv.f zgerc.f zgeru.f zhbmv.f zhemm.f zhemv.f zher2.f zher2k.f zher.f zherk.f zhpmv.f zhpr2.f zhpr.f zscal.f zswap.f zsymm.f zsyr2k.f zsyrk.f ztbmv.f ztbsv.f ztpmv.f ztpsv.f ztrmm.f ztrmv.f ztrsm.f ztrsv.f > ../../cmplxblas.f
 
 cat dznrm2.f90 zrotg.f90 > ../../cmplxblas2.f90
+
+In cmplxblas.f, s/COMPLEX[*]16/DOUBLE COMPLEX/g