diff options
Diffstat (limited to 'BLAS/SRC/srot.f')
| -rw-r--r-- | BLAS/SRC/srot.f | 71 |
1 files changed, 60 insertions, 11 deletions
diff --git a/BLAS/SRC/srot.f b/BLAS/SRC/srot.f index b53b0fdb..50e20ed8 100644 --- a/BLAS/SRC/srot.f +++ b/BLAS/SRC/srot.f @@ -1,22 +1,71 @@ - SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) -* .. Scalar Arguments .. - REAL C,S - INTEGER INCX,INCY,N -* .. -* .. Array Arguments .. - REAL SX(*),SY(*) -* .. +*> \brief \b SROT +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition +* ========== * +* SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) +* +* .. Scalar Arguments .. +* REAL C,S +* INTEGER INCX,INCY,N +* .. +* .. Array Arguments .. +* REAL SX(*),SY(*) +* .. +* * Purpose * ======= * -* applies a plane rotation. +*>\details \b Purpose: +*>\verbatim +*> +*> applies a plane rotation. +*> +*>\endverbatim +* +* Authors +* ======= +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup single_blas_level1 +* * * Further Details * =============== +*>\details \b Further \b Details +*> \verbatim +*> +*> jack dongarra, linpack, 3/11/78. +*> modified 12/3/93, array(1) declarations changed to array(*) +*> +*> \endverbatim +*> +* ===================================================================== + SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) +* +* -- Reference BLAS level1 routine (version 3.4.0) -- +* -- Reference BLAS is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 * -* jack dongarra, linpack, 3/11/78. -* modified 12/3/93, array(1) declarations changed to array(*) +* .. Scalar Arguments .. + REAL C,S + INTEGER INCX,INCY,N +* .. +* .. Array Arguments .. + REAL SX(*),SY(*) +* .. * * ===================================================================== * |