H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
To normalise a three dimensional vector.
Language: | FORTRAN |
Product form: | Source code |
MAP_UTIL_NORM normalises the vector [X,Y,Z]. The subroutine calculates the square root of X2 + Y2 + Z2 and divides each component of the vector by it.
None supplied.
None.
No information supplied.
None.
REAL X,Y,Z READ (5,*) X,Y,Z CALL MAP_UTIL_NORM(X,Y,Z) WRITE (6,*) X,Y,Z STOP END
1.0 2.0 3.0
0.267261 0.534522 0.801784
None.
normalise, vector
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk