[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_UTIL_TRANS2

  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

To multiply a 3-d row vector by a 3x3 matrix.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_UTIL_TRANS2(D, H, K, L, HH, KK, LL)

REAL D(9), H, K, L, HH, KK, LL

Top | Next | Prev

Description

MAP_UTIL_TRANS2 transforms the row vector [H,K,L] by multiplying it by the 3x3 matrix D.

Top | Next | Prev

References

None supplied.

Top | Next | Prev

Parameters

Input parameters

D - real array of dimension 9.
D is the 3x3 transformation matrix in vector form.

H, K, L - reals
H, K, L are the components of the vector to be transformed.

Output parameters

HH, KK, LL - reals
HH, KK, LL are the components of transformed vector.

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_PROGRAM.

Top | Next | Prev

Example

1. Program text

       REAL D(9), H, K, L, HH, KK, LL
       INTEGER I
       READ (5,*) (D(I), I=1,9)
       READ (5,*) H, K, L
       CALL MAP_UTIL_TRANS2(D, H, K, L, HH, KK, LL)
       WRITE (6,*) HH, KK, LL
       STOP
       END

2. Program data

1.0  -1.0   2.5  -2.0   3.3   1.2  -1.0   4.0   0.5

1.0   3.0   2.0

3. Program results

-7.0   16.9   7.1

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

transformation

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!