[MAP Logo] Materials Algorithms Project
           FORTRAN Library

[Image]

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.

[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

To calculate the diffusivity of carbon in austenite as a function of carbon
concentration and temperature.

Return to top of Document

Specification

SUBROUTINE MAP_STEEL_DIFFUS(DIF,X,T,WDIFF)

DOUBLE PRECISION DIF,X,T,WDIFF

Return to top of Document

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.

Return to top of Document

References

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

Return to top of Document

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.

Return to top of Document

Error Indicators

None.

Return to top of Document

Accuracy

N/A

Return to top of Document

Further Comments

None.

Return to top of Document

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

Return to top of Document

Auxiliary Routines

MAP_STEEL_CG
MAP_STEEL_DCG

Keywords

diffusivity, carbon, austenite

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!]
