Reference-LAPACK · langou · Jul 4, 2023 · Jul 4, 2023 · Jul 4, 2023 · Jul 4, 2023
diff --git a/BLAS/SRC/caxpy.f b/BLAS/SRC/caxpy.f
@@ -72,7 +72,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup axpy
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ccopy.f b/BLAS/SRC/ccopy.f
@@ -65,7 +65,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup copy
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cdotc.f b/BLAS/SRC/cdotc.f
@@ -67,7 +67,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup dot
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cdotu.f b/BLAS/SRC/cdotu.f
@@ -67,7 +67,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup dot
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f
@@ -165,7 +165,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup gbmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f
@@ -166,7 +166,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup gemm
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f
@@ -136,7 +136,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup gemv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cgerc.f b/BLAS/SRC/cgerc.f
@@ -109,7 +109,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup ger
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cgeru.f b/BLAS/SRC/cgeru.f
@@ -109,7 +109,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup ger
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f
@@ -165,7 +165,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup hbmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f
@@ -170,7 +170,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup hemm
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f
@@ -132,7 +132,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup hemv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f
@@ -114,7 +114,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup her
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f
@@ -129,7 +129,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup her2
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f
@@ -173,7 +173,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup her2k
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f
@@ -149,7 +149,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup herk
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f
@@ -127,7 +127,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup hpmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f
@@ -109,7 +109,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup hpr
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f
@@ -124,7 +124,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup hpr2
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/crotg.f90 b/BLAS/SRC/crotg.f90
@@ -5,19 +5,16 @@
 ! Online html documentation available at
 !            http://www.netlib.org/lapack/explore-html/
 !
-!  Definition:
-!  ===========
-!
-!  CROTG constructs a plane rotation
-!     [  c         s ] [ a ] = [ r ]
-!     [ -conjg(s)  c ] [ b ]   [ 0 ]
-!  where c is real, s is complex, and c**2 + conjg(s)*s = 1.
-!
 !> \par Purpose:
 !  =============
 !>
 !> \verbatim
 !>
+!> CROTG constructs a plane rotation
+!>    [  c         s ] [ a ] = [ r ]
+!>    [ -conjg(s)  c ] [ b ]   [ 0 ]
+!> where c is real, s is complex, and c**2 + conjg(s)*s = 1.
+!>
 !> The computation uses the formulas
 !>    |x| = sqrt( Re(x)**2 + Im(x)**2 )
 !>    sgn(x) = x / |x|  if x /= 0
@@ -33,6 +30,8 @@
 !> if the signs of a and b are not the same.
 !>
 !> \endverbatim
+!>
+!> @see lartg, @see lartgp
 !
 !  Arguments:
 !  ==========
@@ -69,7 +68,7 @@
 !
 !> \date December 2021
 !
-!> \ingroup single_blas_level1
+!> \ingroup rotg
 !
 !> \par Further Details:
 !  =====================
@@ -181,7 +180,7 @@ subroutine CROTG( a, b, c, s )
          f2 = ABSSQ( f )
          g2 = ABSSQ( g )
          h2 = f2 + g2
-         ! safmin <= f2 <= h2 <= safmax 
+         ! safmin <= f2 <= h2 <= safmax
          if( f2 >= h2 * safmin ) then
             ! safmin <= f2/h2 <= 1, and h2/f2 is finite
             c = sqrt( f2 / h2 )
@@ -237,7 +236,7 @@ subroutine CROTG( a, b, c, s )
             f2 = ABSSQ( fs )
             h2 = f2 + g2
          end if
-         ! safmin <= f2 <= h2 <= safmax 
+         ! safmin <= f2 <= h2 <= safmax
          if( f2 >= h2 * safmin ) then
             ! safmin <= f2/h2 <= 1, and h2/f2 is finite
             c = sqrt( f2 / h2 )

diff --git a/BLAS/SRC/cscal.f b/BLAS/SRC/cscal.f
@@ -61,7 +61,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup scal
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/csrot.f b/BLAS/SRC/csrot.f
@@ -91,7 +91,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup rot
 *
 *  =====================================================================
       SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )

diff --git a/BLAS/SRC/csscal.f b/BLAS/SRC/csscal.f
@@ -61,7 +61,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup scal
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/cswap.f b/BLAS/SRC/cswap.f
@@ -65,7 +65,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level1
+*> \ingroup swap
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f
@@ -168,7 +168,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup hemm
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f
@@ -167,7 +167,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup her2k
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f
@@ -146,7 +146,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup herk
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f
@@ -164,7 +164,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup tbmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f
@@ -168,7 +168,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup tbsv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f
@@ -120,7 +120,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup tpmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f
@@ -123,7 +123,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup tpsv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f
@@ -156,7 +156,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup trmm
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f
@@ -125,7 +125,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup trmv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f
@@ -159,7 +159,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level3
+*> \ingroup trsm
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f
@@ -128,7 +128,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup complex_blas_level2
+*> \ingroup trsv
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/dasum.f b/BLAS/SRC/dasum.f
@@ -54,7 +54,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup double_blas_level1
+*> \ingroup asum
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/daxpy.f b/BLAS/SRC/daxpy.f
@@ -73,7 +73,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup double_blas_level1
+*> \ingroup axpy
 *
 *> \par Further Details:
 *  =====================

diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f
@@ -40,7 +40,7 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup double_blas_level1
+*> \ingroup abs1
 *
 *  =====================================================================
       DOUBLE PRECISION FUNCTION DCABS1(Z)