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 differential (w.r.t. the carbon concentration at the T0 boundary) of the free energy change accompanying the transformation from austenite to ferrite of the same chemical composition.
Top |
Next |
Prev
Language: | FORTRAN
|
Product form: | Source code |
FUNCTION MAP_STEEL_G91(XTO,T,W,W1,H1,S1,F,H,S,AJ,AJ1,R)
DOUBLE PRECISION XTO,T,W,W1,H1,S1,F,H,S,AJ,AJ1,R
Top |
Next |
Prev
MAP_STEEL_G91 calculates the differential (with respect to the carbon concentration
at the T0 boundary) of the free energy change accompanying the transformation from
austenite to ferrite of the same chemical composition.
Top |
Next |
Prev
- C. Zener, Trans. AIME, 167, (1946), 550.
- J.C. Fisher, Metals Transactions, 185, (1949), 688-690.
- H.K.D.H. Bhadeshia and D.V. Edmonds, Acta Metallurgica, 28, (1980), 1265-1273.
Top |
Next |
Prev
Input parameters
- XTO - real
- XTO is the carbon concentration at the T0 boundary.
- T - real
- T is the temperature (in kelvin).
- W - real
- W is the carbon-carbon interaction energy in austenite (in joules per mole, Jmol-1).
- W1 - real
- W1 is the carbon-carbon interaction energy in ferrite (in joules per mole, Jmol-1).
- H1 - real
- H1 is the excess partial molar enthalpy of solution of carbon in ferrite (in joules per mole, Jmol-1).
- S1 - real
- S1 is the excess partial molar entropy of solution of carbon in ferrite (in joules per mole per kelvin, J mol-1K-1).
- F - real
- F is the energy.
- H - real
- H is the excess partial molar enthalpy of solution of carbon in austenite (in joules per mole, Jmol-1).
- S - real
- S is the excess partial molar entropy of solution of carbon in austenite (in joules per mole, Jmol-1).
- AJ - real
- AJ = 1 - e(W/RT), where R is the universal gas constant.
- AJ1 - real
- AJ1 = 1 - e(W1/RT), where R is the universal gas constant.
- R - real
- R is the universal gas constant (in joules per mole per kelvin, Jmol-1K-1)
Output parameters
- MAP_STEEL_G91 - real
- MAP_STEEL_G91 is the differential of MAP_STEEL_FTO1.
Top |
Next |
Prev
None.
Top |
Next |
Prev
No information supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
1. Program text
DOUBLE PRECISION XTO,T,W,W1,H1,S1,F,H,S,AJ,AJ1,R,XG91
DOUBLE PRECISION MAP_STEEL_G91
INCLUDE 'map_constants_gas.f'
READ (5,*) H,S,H1,S1,W,W1
READ(5,*) XTO,T,F,AJ,AJ1
XG91=MAP_STEEL_G91(XTO,T,W,W1,H1,S1,F,H,S,AJ,AJ1,R)
WRITE (6,*) XG91
STOP
END
2. Program data
None supplied.
3. Program results
None supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
carbon, T0 boundary, austenite, ferrite
Top |
Next |
Prev
Download source code
Top |
Prev