[MAP Logo]

Materials Algorithms Project
Program Library


Function MAP_STEEL_WSFUN

  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 needed to nucleate Widmanstätten ferrite.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

DOUBLE PRECISION FUNCTION MAP_STEEL_WSFUN(KTEMP, T0)

DOUBLE PRECISION KTEMP, T0

Top | Next | Prev

Description

MAP_STEEL_WSFUN calculates the free energy needed to nucleate Widmanstätten ferrite. If MAP_STEEL_WSFUN is greater than or equal to zero, there is no problem with nucleation. For the Gn curve for Widmanstätten ferrite nucleation see [1].

Top | Next | Prev

References

  1. Acta Metall., (1981).

Top | Next | Prev

Parameters

Input parameters

KTEMP - real
KTEMP is the absolute temperature (in kelvin).

T0 - real
T0 is the triple point of water (273.15K).

Output parameters

MAP_STEEL_WSFUN - real
MAP_STEEL_WSFUN is the free energy needed for nucleation in Widmanstätten ferrite (in joules per mole, Jmol-1).

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

The calculation is of the form alpha(KTEMP - t0) - beta, where alpha is given to 9 decimal places, beta is given to 3 decimal places, and t0 is 273.15

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION KTEMP, WSTEST, MAP_STEEL_WSFUN, T0
       INCLUDE 'map_constants_t0.f'
       READ (5,*) KTEMP
       WSTEST= MAP_STEEL_WSFUN(KTEMP, T0)
       WRITE (6,10) WSTEST
10     FORMAT ('Free energy for nucleation = ', D13.5)
       STOP
       END

2. Program data

1000.0

3. Program results

Free energy for nucleation = 0.18052D+03

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

Widmanstatten, ferrite, nucleation, free energy

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!