Contents
drotm - Apply a Gentleman's modified Given's rotation con-
structed by SROTMG.
SUBROUTINE DROTM(N, X, INCX, Y, INCY, PARAM)
INTEGER N, INCX, INCY
DOUBLE PRECISION X(*), Y(*), PARAM(*)
SUBROUTINE DROTM_64(N, X, INCX, Y, INCY, PARAM)
INTEGER*8 N, INCX, INCY
DOUBLE PRECISION X(*), Y(*), PARAM(*)
F95 INTERFACE
SUBROUTINE ROTM([N], X, [INCX], Y, [INCY], PARAM)
INTEGER :: N, INCX, INCY
REAL(8), DIMENSION(:) :: X, Y, PARAM
SUBROUTINE ROTM_64([N], X, [INCX], Y, [INCY], PARAM)
INTEGER(8) :: N, INCX, INCY
REAL(8), DIMENSION(:) :: X, Y, PARAM
C INTERFACE
#include <sunperf.h>
void drotm(int n, double *x, int incx, double *y, int incy,
double *param);
void drotm_64(long n, double *x, long incx, double *y, long
incy, double *param);
drotm 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.