      SUBROUTINE G2 (C,S,X,Y)
      XR=C*X+S*Y
      Y=-S*X+C*Y
      X=XR
      RETURN
      END
