[MAP Logo]

Materials Algorithms Project
Program Library


Function MAP_STEEL_ENERGY

  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

To calculate the free energy change for the transformation of austenite to ferrite of the same chemical composition.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

DOUBLE PRECISION FUNCTION MAP_STEEL_ENERGY(T, T10, T20)

DOUBLE PRECISION T, T10, T20

Top | Next | Prev

Description

MAP_STEEL_ENERGY gives the free energy change for the transformation of austenite to ferrite of the same chemical composition. If the free energy of transformation from austenite to ferrite Delta Ggamma alpha in pure iron is factorised into magnetic and non-magnetic components, then Delta TM and Delta TNM represent the temperature changes, caused by unit concentration x of substitutional solute, to the temperature at which Delta Ggamma alpha is calculated.

Top | Next | Prev

References

  1. Aaronson, Domian, Pound, TMS AIME, 236, (1966), 769.
  2. L. Kaufman, E. V. Clougherty and R. J. Weiss, 1963, Acta Metallurgica, 11, 323.

Top | Next | Prev

Parameters

Input parameters

T - real
T is the absolute temperature (in Kelvin).

T20 - real
T20 = Delta TM

T10 - real
T10 = Delta TM - Delta TNM

Output parameters

MAP_STEEL_ENERGY - real
MAP_STEEL_ENERGY is the free energy change (Joules) for the transformation of austenite to ferrite of the same chemical composition.

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

      DOUBLE PRECISION T,T10,T20,MAP_STEEL_ENERGY,XENG
C
      WRITE(*,*) 'Input T, T10, T20:'
      READ (*,*) T,T10,T20
      XENG = MAP_STEEL_ENERGY(T,T10,T20)
      WRITE (*,1) XENG
      STOP
    1 FORMAT ('Free energy change =',F9.3,' Joules.')
      END

2. Program data

Input T, T10, T20:
1113 -0.00964 -0.417

3. Program results

Free energy change =  -27.478 Joules.

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

free energy change, austenite, ferrite

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!