--- rpl/lapack/lapack/zrot.f	2018/05/29 07:18:34	1.17
+++ rpl/lapack/lapack/zrot.f	2023/08/07 08:39:36	1.18
@@ -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