H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Calculates the metric tensor for a monoclinic crystal structure.
Language: | FORTRAN |
Product form: | Source code |
MAP_CRYSTAL_MET5 calculates the metric tensor and its inverse for a monoclinic crystal structure. The first element is set to AP2, the fifth to BP2, and the ninth to CP2. The third and seventh elements are set to AP*CP*COS(2*pi*BETA/360), and the rest of the elements are zero.
IFAIL = 1 if BETA is outside the range 0 - 180 degrees, 0 otherwise.
No information supplied.
None.
REAL G(9), AP, BP, CP, BETA, PI INTEGER I, IFAIL INCLUDE 'map_constants_pi.f' READ (5,*) AP, BP, CP, BETA CALL MAP_CRYSTAL_MET5(G,AP,BP,CP,BETA,PI,IFAIL) WRITE (6,10) (G(I), I=1,9) 10 FORMAT(5X, 3F8.4) IF (IFAIL.EQ.0) GOTO 20 WRITE(6,40) BETA 40 FORMAT('Invalid value BETA=',F8.4,'. Must be in range 0 - 180') 20 CONTINUE STOP END
1.0 3.0 2.0 60.0
1.0000 0.0000 1.7321 0.0000 9.0000 0.0000 1.7301 0.0000 4.0000
None.
monoclinic, metric tensor
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk