H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Calculates the magnitude of a vector defined in real space.
Language: | FORTRAN |
Product form: | Source code |
MAP_CRYSTAL_VECMAG uses the metric tensor G to transform the real space vector [U,V,W] into the reciprocal space vector [H,K,L]. The vector magnitude is sqrt[(U*H + U*K + W*L)].
None.
No information supplied.
None.
REAL G(9), U, V, W, M READ (5,*) (G(I), I=1,9) READ (5,*) U, V, W CALL MAP_CRYSTAL_VECMAG(G, U, V, W, M) WRITE (6,10) M 10 FORMAT (3X,'Magnitude is ',F8.4) STOP END
1.00 0.00 0.00 0.00 1.00 0.00 0.00 0.00 4.00 1.00 0.00 1.00
Magnitude is 2.2361
Utility Subroutines:
MAP_UTIL_TRANS
metric tensor, vector magnitude, real space
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk