[MAP Logo]

Materials Algorithms Project
Program Library



Subroutine MAP_UTIL_ROT

  1. Provenance of code.
  2. Purpose of code.
  3. Specification.
  4. Description of subroutine's operation.
  5. References.
  6. Parameter descriptions.
  7. Error indicators.
  8. Accuracy estimate.
  9. Any additional information.
  10. Example of code
  11. Auxiliary subroutines required.
  12. Keywords.
  13. Download source code.
  14. Links.

Provenance of Source Code

H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

Calculates a three dimensional rotation matrix.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_UTIL_ROT(P1, P2, P3, THETA, R)

REAL P1, P2, P3, THETA, R(9)

Top | Next | Prev

Description

MAP_UTIL_ROT calculates a three dimensional rotation matrix given an axis of rotation and a right-handed angle of rotation.

Top | Next | Prev

References

None.

Top | Next | Prev

Parameters

Input parameters

P1, P2, P3 - reals
P1, P2, P3 are the components of the vector [P1,P2,P3] which defines the axis of rotation.

THETA - real
THETA is the angle of rotation (in radians).

Output parameters

R - real array of dimension 9
R is the 3x3 rotation matrix.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

Used by the crystal analysis program MAP_CRYSTAL_PROG1.

Top | Next | Prev

Example

1. Program text

       REAL P1, P2, P3, THETA, R(9)
       INTEGER I
       READ (5,*) P1, P2, P3, THETA
       CALL MAP_UTIL_ROT(P1, P2, P3, THETA, R)
       WRITE (6,*) (R(I), I=1,9)
       STOP
       END

2. Program data

1.0   3.0   2.0   1.0

3. Program results

1.00000  -0.303849   3.44381   3.06204   4.67758   1.91672  -1.60502   3.59966   2.37909

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

rotation matrix

Top | Next | Prev

Download

Download source code

Top | Prev


MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.

MAP Website administration / map@msm.cam.ac.uk

Top | Index | MAP Homepage Valid HTML 3.2!