Materials Algorithms Project
Program Library
- Provenance of code.
- Purpose of code.
- Specification.
- Description of subroutine's operation.
- References.
- Parameter descriptions.
- Error indicators.
- Accuracy estimate.
- Any additional information.
- Example of code
- Auxiliary subroutines required.
- Keywords.
- Download source code.
- Links.
H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Top |
Next
Calculates the metric tensor for a cubic crystal structure.
Top |
Next |
Prev
Language: | FORTRAN
|
Product form: | Source code |
SUBROUTINE MAP_CRYSTAL_MET1(G, AP)
REAL G(9), AP
Top |
Next |
Prev
The tensor is stored in a nine element array. The first, fifth and ninth elements are
set to AP2, the rest to zero.
Top |
Next |
Prev
- Microstructural Characterisation of High Temperature Materials,
ed. E. Metcalfe, Institute of Metals, London, 1988, (page 33, Table 3).
Top |
Next |
Prev
Input parameters
- AP - real
- AP is the lattice parameter for the cubic system.
Output parameters
- G - real array of dimension 9
- G contains the metric tensor.
Top |
Next |
Prev
None.
Top |
Next |
Prev
No information supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
1. Program text
REAL AP, G(9)
INTEGER I
READ (5,*) AP
CALL MAP_CRYSTAL_MET1(G,AP)
WRITE (6,1) (G(I), I=1,9)
1 FORMAT(5X, 3F8.4)
STOP
END
2. Program data
2.0
3. Program results
4.0000 0.0000 0.0000
0.0000 4.0000 0.0000
0.0000 0.0000 4.0000
Top |
Next |
Prev
None.
Top |
Next |
Prev
cubic, metric tensor
Top |
Next |
Prev
Download source code
Top |
Prev