Materials Algorithms Project
Program Library
- Provenance of code.
- Purpose of code.
- Specification.
- Description of subroutine's operation.
- References.
- Parameter descriptions.
- Error indicators.
- Accuracy estimate.
- Any additional information.
- Example of code
- Auxiliary subroutines required.
- Keywords.
- Download source code.
- Links.
H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Top |
Next
To calculate the diffusivity of carbon in austenite as a function
of carbon concentration and temperature.
Top |
Next |
Prev
Language: | FORTRAN
|
Product form: | Source code |
SUBROUTINE MAP_STEEL_DIFFUS(DIF,X,T,WDIFF)
DOUBLE PRECISION DIF,X,T,WDIFF
Top |
Next |
Prev
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
- S.S. Babu and H.K.D.H. Bhadeshia, Journal of Materials Science Letters,
14, (1995), 314-316.
Top |
Next |
Prev
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
None.
Top |
Next |
Prev
No information supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
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
MAP_STEEL_CG
MAP_STEEL_DCG
Top |
Next |
Prev
diffusivity, carbon, austenite
Top |
Next |
Prev
Download source code
Top |
Prev