[MAP Logo]

Materials Algorithms Project
Program Library



Subroutine MAP_UTIL_MAGG

  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 calculate the inverse of the magnitude of the product of two vectors. The second vector is formed by a matrix transformation on the first vector.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_UTIL_MAGG(H, K, L, G, M)

REAL H, K, L, G(9), M

Top | Next | Prev

Description

MAP_UTIL_MAGG calculates the inverse of the square root of the scalar product of two vectors. The input vector [H,K,L] is operated on by the 3x3 matrix G to form the second vector.

Top | Next | Prev

References

None supplied.

Top | Next | Prev

Parameters

Input parameters

H, K, L - reals
H, K, L are the components of the input vector [H,K,L].

G - real array of dimension 9
G is a 3x3 matrix in vector form.

Output parameters

M - real
M is the inverse of the square root of the scalar product of the two vectors.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       REAL H, K, L, G(9), M
       READ (5,*) 
       CALL MAP_UTIL_MAGG(H, K, L, G, M)
       WRITE (6,*) M
       STOP
       END

2. Program data

1.0   3.0   2.0
1.0  -1.0   2.0   0.0   3.0  -2.0   1.5   0.4   1.0

3. Program results

0.194625

Top | Next | Prev

Auxiliary Routines

MAP_UTIL_TRANS

Top | Next | Prev

Keywords

matrix 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!