[MAP Logo] Materials Algorithms Project
           FORTRAN Library

[Dept logo bar]

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.

[Dept logo bar]

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

To calculate the free energy needed to nucleate Widmansttten ferrite.

Return to top of Document

Specification

DOUBLE PRECISION FUNCTION MAP_STEEL_WSFUN(KTEMP, T0)

DOUBLE PRECISION KTEMP, T0

Return to top of Document

Description

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

Return to top of Document

References

1. Acta Metall., (1981).

Return to top of Document

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
     Widmansttten ferrite (in joules per mole, Jmol-1).

Return to top of Document

Error Indicators

None.

Return to top of Document

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

Return to top of Document

Further Comments

None.

Return to top of Document

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

Return to top of Document

Auxiliary Routines

None.

Keywords

Widmansttten ferrite, nucleation

Download source code

[Dept logo bar]

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

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

Return to top of Document
Functions Index
MAP Homepage

[W3C Wilbur Checked!]
