SUBROUTINE G2(COS,SIN,X,Y)
C
C     C.L.LAWSON AND R.J.HANSON, JET PROPULSION  LABORATORY, 1972 DEC 15
C     TO APPEAR IN ^SOLVING LEAST SQUARES PROBLEMS^, PRENTICE-HALL, 1974
C               APPLY THE ROTATION COMPUTED BY G1 TO (X,Y)
C
      IMPLICIT REAL*8(A-H,O-Z)
      IMPLICIT INTEGER(I-N)
C
      XR = COS*X + SIN*Y
      Y = -SIN*X + COS*Y
      X = XR
      RETURN
      END