H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
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.
Language: | FORTRAN |
Product form: | Source code |
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.
None supplied.
None.
No information supplied.
None.
REAL H, K, L, G(9), M READ (5,*) CALL MAP_UTIL_MAGG(H, K, L, G, M) WRITE (6,*) M STOP END
1.0 3.0 2.0 1.0 -1.0 2.0 0.0 3.0 -2.0 1.5 0.4 1.0
0.194625
matrix transformation
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk