F118: Rotating a 3-Vector

Author(s): CERN TC Division Library: KERNLIB
Submitter: C. Letertre Submitted: 01.09.1969
Language: Fortran Revised:

Subroutine subprogram ROT rotates a 3-vector tex2html_wrap_inline60 by a given angle tex2html_wrap_inline62 around the z-axis.

Structure:

SUBROUTINE subprogram
User Entry Names: ROT
COMMON Block Names and Lengths: /SLATE/ 40

Usage:

    CALL ROT(A,TH,B)
A
(REAL) One-dimensional array of length 3, containing tex2html_wrap_inline66 .
TH
(REAL) Angle tex2html_wrap_inline68 given in radians.
B
(REAL) One-dimensional array of length 3. On exit, B contains the components tex2html_wrap_inline70 of the rotated vector, i.e.
tex2html_wrap_inline72
tex2html_wrap_inline74
tex2html_wrap_inline76 .
B may overlap A.
tex2html_wrap_inline78

Michel Goossens Wed Jun 5 05:15:40 METDST 1996