NAME

SROT - applies a plane rotation

SYNOPSIS

SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S)

REAL C,S INTEGER INCX,INCY,N REAL SX(*),SY(*)

PURPOSE

applies a plane rotation.

FURTHER DETAILS

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