Loading...
Searching...
No Matches

## srot()

subroutine srot | ( | integer | n,
|  | real, dimension(*) | sx,
|  | integer | incx,
|  | real, dimension(*) | sy,
|  | integer | incy,
|  | real | c,
|  | real | s )

SROT

Purpose:

      !>
      !>    applies a plane rotation.
      !>

Parameters

  [in]

  N

      !>          N is INTEGER
      !>         number of elements in input vector(s)
      !>

  [in,out]

  SX

      !>          SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
      !>

  [in]

  INCX

      !>          INCX is INTEGER
      !>         storage spacing between elements of SX
      !>

  [in,out]

  SY

      !>          SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
      !>

  [in]

  INCY

      !>          INCY is INTEGER
      !>         storage spacing between elements of SY
      !>

  [in]

  C

      !>          C is REAL
      !>

  [in]

  S

      !>          S is REAL
      !>

Author
  Univ. of Tennessee
  Univ. of California Berkeley
  Univ. of Colorado Denver
  NAG Ltd.

Further Details:

      !>
      !>     jack dongarra, linpack, 3/11/78.
      !>     modified 12/3/93, array(1) declarations changed to array(*)
      !>