H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
A function to calculate the scalar product of two vectors.
Language: | FORTRAN |
Product form: | Source code |
MAP_UTIL_MAG calculates the scalar product of two three-dimensional vectors [H,K,L] and [H1,K1,L1], i.e.:
MAP_UTIL_MAG(H, K, L, H1, K1, L1) = [H,K,L].[H1,K1,L1] = H*H1 + K*K1 + L*L1
None provided.
None.
No information supplied.
None.
REAL H, K, L, H1, K1, L1, A, MAP_UTIL_MAG READ (5,*) H, K, L, H1, K1, L1 A = MAP_UTIL_MAG(H, K, L, H1, K1, L1) WRITE (6,*) A STOP END
1.0 1.5 3.0 -1.0 2.0 1.0
5.0
None.
scalar product
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk