NAME

SROTMG - Construct a Gentleman’s modified Given’s plane rotation

SYNOPSIS

SUBROUTINE SROTG (D1, D2, B1, B2, PARAM)

REAL    B1, B2, D1, D2, PARAM(5)

PURPOSE

SROTMG - Construct Gentleman’s modified a Given’s plane rotation that will annihilate an element of a vector. 
 

PARAMETERS

D1     - REAL. 
On entry, the first diagonal entry in the H matrix.  On exit, changed to reflect the effect of the transformation.

D2     - REAL. 
On entry, the second diagonal entry in the H matrix.  On exit, changed to reflect the effect of the transformation.

B1     - REAL. 
On entry, the first element of the vector to which the H matrix is applied. On exit, changed to reflect the effect of the transformation.

B2     - REAL. 
On entry, the second element of the vector to which the H matrix is applied. On exit, changed to reflect the effect of the transformation.

PARAM  - REAL. 
On entry, PARAM(1) describes the form of the H matrix.  On exit, PARAM(2..5) contain the H matrix.

SunSoft, Inc.  —  Last change: 27 Jun 1995