[MAP Logo] Materials Algorithms Project
           FORTRAN Library

[Image]

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.

[Image]

Provenance of Source Code

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

Return to top of Document

Purpose

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

Return to top of Document

Specification

SUBROUTINE MAP_CRYSTAL_TENSOR1(F, G, AP)

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

Return to top of Document

Description

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

Return to top of Document

References

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

Return to top of Document

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.

Return to top of Document

Error Indicators

None.

Return to top of Document

Accuracy

No information supplied.

Return to top of Document

Further Comments

None.

Return to top of Document

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

Return to top of Document

Auxiliary Routines

MAP_CRYSTAL_MET1
MAP_UTIL_INVERS

Keywords

cubic, metric tensor, inverse

Download source code

[Image]

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

Contact Information :-

Harry Bhadeshia / hkdb@cus.cam.ac.uk
Hugh Davies / rhd@newton.npl.co.uk
Web site admin. / map@cam.ac.uk

Return to top of Document
Subroutines Index
MAP Homepage

[W3C Wilbur Checked!]
