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 cubic crystal.
Language: | FORTRAN |
Product form: | Source code |
MAP_CRYSTAL_TENSOR1 calculates the metric tensor and its inverse for a cubic crystal structure.
None.
No information supplied.
None.
REAL AP, G(9), F(9) INTEGER I READ (5,*) AP CALL MAP_CRYSTAL_TENSOR1(F, G, AP) WRITE (6,1) (G(I), I=1,9) WRITE (6,2) WRITE (6,1) (F(I), I=1,9) 1 FORMAT (5X, 3F8.4) 2 FORMAT (/) STOP END
2.0
4.0000 0.0000 0.0000 0.0000 4.0000 0.0000 0.0000 0.0000 4.0000 0.2500 0.0000 0.0000 0.0000 0.2500 0.0000 0.0000 0.0000 0.2500
Subroutines:
MAP_CRYSTAL_MET1
Utility Subroutines:
MAP_UTIL_INVERS
cubic, 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