H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Calculates the metric tensor and its inverse for a hexagonal or trigonal crystal.
Language: | FORTRAN |
Product form: | Source code |
MAP_CRYSTAL_TENSOR4 calculates the metric tensor and its inverse for a hexagonal or trigonal crystal structure.
None.
No information supplied.
None.
REAL F(9), G(9), AP, CP INTEGER I READ (5,*) AP, CP CALL MAP_CRYSTAL_TENSOR4(F, G, AP, CP) WRITE (6,*) (G(I), I=1,9) WRITE (6,*) (F(I), I=1,9) STOP END
0.5 2.0
0.25 -0.125 0. -0.125 0.25 0. 0. 0. 4.00 5.33333 2.66667 0. 2.66667 5.33333 0. 0. 0. 0.25
Subroutines:
MAP_CRYSTAL_MET4
Utility Subroutines:
MAP_UTIL_INVERS
hexagonal, trigonal, metric tensor, inverse
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk