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
To convert the components of a vector from real to reciprocal space, or vice versa.
Top |
Next |
Prev
Language: | FORTRAN
|
Product form: | Source code |
SUBROUTINE MAP_CRYSTAL_CONVERT(F, G, H, K, L, JR1, U, V, W)
REAL F(9), G(9), H, K, L, U, V, W
INTEGER JR1
Top |
Next |
Prev
To convert the components of a vector from real to reciprocal space, or vice versa.
Top |
Next |
Prev
- H.K.D.H. Bhadeshia, Worked Examples in the Geometry of Crystals,
Institute of Materials, London, 1987.
Top |
Next |
Prev
Input parameters
- F - real array of dimension 9
- F is a metric tensor used to convert components from reciprocal to real
space.
- G - real array of dimension 9
- G is a metric tensor used to convert the components from real to reciprocal
space.
- H, K, L - reals
- H, K, L are the components to be converted.
- JR1 - integer
- J is zero if the vector [H,K,L] is defined in real space,
1 if it is in reciprocal space.
Output parameters
- U, V, W - reals
- U, V, W are the components of the converted vector.
Top |
Next |
Prev
None.
Top |
Next |
Prev
No information supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
1. Program text
REAL F(9), G(9), H, K, L, U, V, W, AP, CP
INTEGER JR1
READ (5,*) AP, CP
CALL MAP_CRYSTAL_TENSOR2(F, G, AP, CP)
READ (5,*) H, K, L, JR1
CALL MAP_CRYSTAL_CONVERT(F, G, H, K, L, JR1, U, V, W)
WRITE (6,*) U, V, W
STOP
END
2. Program data
1.0 2.0
1.0 0.0 1.0 1
3. Program results
1.00 0.0 0.25
Top |
Next |
Prev
MAP_UTIL_TRANS
Top |
Next |
Prev
real, reciprocal, vector
Top |
Next |
Prev
Download source code
Top |
Prev