home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / LLSQ.ZIP / G2.FOR < prev    next >
Encoding:
Text File  |  1984-02-23  |  739 b   |  10 lines
  1.       SUBROUTINE G2    (COS,SIN,X,Y)                                    G2000100
  2. C     C.L.LAWSON AND R.J.HANSON, JET PROPULSION LABORATORY, 1972 DEC 15 G2000200
  3. C     TO APPEAR IN 'SOLVING LEAST SQUARES PROBLEMS', PRENTICE-HALL, 1974G2000300
  4. C          APPLY THE ROTATION COMPUTED BY G1 TO (X,Y).                  G2000400
  5.       XR=COS*X+SIN*Y                                                    G2000500
  6.       Y=-SIN*X+COS*Y                                                    G2000600
  7.       X=XR                                                              G2000700
  8.       RETURN                                                            G2000800
  9.       END                                                               G2000900
  10.