[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_CRYSTAL_TENSOR1

  1. Provenance of code.
  2. Purpose of code.
  3. Specification.
  4. Description of subroutine's operation.
  5. References.
  6. Parameter descriptions.
  7. Error indicators.
  8. Accuracy estimate.
  9. Any additional information.
  10. Example of code
  11. Auxiliary subroutines required.
  12. Keywords.
  13. Download source code.
  14. Links.

Provenance of Source Code

H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

Calculates the metric tensor and its inverse for a cubic crystal.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_CRYSTAL_TENSOR1(F, G, AP)

REAL F(9), G(9), AP

Top | Next | Prev

Description

MAP_CRYSTAL_TENSOR1 calculates the metric tensor and its inverse for a cubic crystal structure.

Top | Next | Prev

References

  1. Microstructural Characterisation of High Temperature Materials, ed. E. Metcalfe, Institute of Metals, London, 1988, (page 33, Table 3).

Top | Next | Prev

Parameters

Input parameters

AP - real
AP is the lattice parameter for the cubic crystal.

Output parameters

F - real array of dimension 9
F contains the inverse of the metric tensor.

G - real array of dimension 9
G contains the metric tensor.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       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. 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

0.2500   0.0000   0.0000
0.0000   0.2500   0.0000
0.0000   0.0000   0.2500

Top | Next | Prev

Auxiliary Routines

Subroutines:
MAP_CRYSTAL_MET1

Utility Subroutines:
MAP_UTIL_INVERS

Top | Next | Prev

Keywords

cubic, metric tensor, inverse

Top | Next | Prev

Download

Download source code

Top | Prev

MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.

MAP Website administration / map@msm.cam.ac.uk

Top | Index | MAP Homepage Valid HTML 3.2!