[MAP Logo]

Materials Algorithms Project
Program Library



Subroutine MAP_STEEL_DIFFUS

  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 diffusivity of carbon in austenite as a function of carbon concentration and temperature.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_STEEL_DIFFUS(DIF,X,T,WDIFF)

DOUBLE PRECISION DIF,X,T,WDIFF

Top | Next | Prev

Description

MAP_STEEL_DIFFUS calculates the diffusivity of carbon in austenite as a function of carbon concentration and temperature. It also accounts for the influence of carbon, manganese, silicon, nickel, molybdenum, chromium, and vanadium on the activity of carbon in austenite, and therefore on the diffusivity of carbon.

Top | Next | Prev

References

  1. S.S. Babu and H.K.D.H. Bhadeshia, Journal of Materials Science Letters, 14, (1995), 314-316.

Top | Next | Prev

Parameters

Input parameters

X - real
X is the mole fraction of carbon.

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

WDIFF - real
WDIFF is the carbon-carbon interaction energy in austenite, not allowing for the presence of molybdenum, chromium, or vanadium. WDIFF may be calculated using the routine MAP_STEEL_OMEGA.

Output parameters

DIF - real
DIF is the diffusivity of carbon in austenite.

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 DIF, X, T, WDIFF
       READ(5,*) X, T, WDIFF
       CALL MAP_STEEL_DIFFUS(DIF, X, T, WDIFF)
       WRITE(6,*) DIF
       STOP
       END

2. Program data

0.00367   1000.0   8389.31

3. Program results

4.2745325477D-09

Top | Next | Prev

Auxiliary Routines

MAP_STEEL_CG
MAP_STEEL_DCG

Top | Next | Prev

Keywords

diffusivity, carbon, austenite

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!