Contents
srotm - Apply a Gentleman's modified Given's rotation con-
structed by SROTMG.
SUBROUTINE SROTM(N, X, INCX, Y, INCY, PARAM)
INTEGER N, INCX, INCY
REAL X(*), Y(*), PARAM(*)
SUBROUTINE SROTM_64(N, X, INCX, Y, INCY, PARAM)
INTEGER*8 N, INCX, INCY
REAL X(*), Y(*), PARAM(*)
F95 INTERFACE
SUBROUTINE ROTM([N], X, [INCX], Y, [INCY], PARAM)
INTEGER :: N, INCX, INCY
REAL, DIMENSION(:) :: X, Y, PARAM
SUBROUTINE ROTM_64([N], X, [INCX], Y, [INCY], PARAM)
INTEGER(8) :: N, INCX, INCY
REAL, DIMENSION(:) :: X, Y, PARAM
C INTERFACE
#include <sunperf.h>
void srotm(int n, float *x, int incx, float *y, int incy,
float *param);
void srotm_64(long n, float *x, long incx, float *y, long
incy, float *param);
srotm Apply a Given's rotation constructed by SROTMG.
N (input)
On entry, N specifies the number of elements in
the vector. N must be at least one for the sub-
routine to have any visible effect. Unchanged on
exit.
X (input/output)
( 1 + ( n - 1 )*abs( INCX ) ). On entry, the
incremented array X must contain the vector x. On
exit, X is overwritten by the updated vector x.
INCX (input)
On entry, INCX specifies the increment for the
elements of X. INCX must not be zero. Unchanged
on exit.
Y (input/output)
( 1 + ( n - 1 )*abs( INCY ) ). On entry, the
incremented array Y must contain the vector y. On
exit, Y is overwritten by the updated vector y.
INCY (input)
On entry, INCY specifies the increment for the
elements of Y. INCY must not be zero. Unchanged
on exit.
PARAM (input)
On entry, the rotation values constructed by
SROTMG. Unchanged on exit.