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 and S.V. Parker,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Top |
Next
To calculate the volume fraction of allotriomorphic ferrite formed during continuous cooling transformation from austenite, for random nucleation.
Top |
Next |
Prev
Language: | FORTRAN
|
Product form: | Source code |
SUBROUTINE MAP_STEEL_AVOLNEW(NEWVF, NEWVOL, ALP1, TIME, BI,
& XAGA, XGAG, XBAR, PI)
DOUBLE PRECISION NEWVF, NEWVOL, ALP1, TIME, BI, XAGA,
& XGAG, XBAR, PI
Top |
Next |
Prev
The extent of allotriomorphic ferrite reaction, NEWVOL, is calculated using the equation:
The actual volume of ferrite, NEWVF, is obtained by multiplication of NEWVOL by the equilibrium fraction of ferrite, OMEGA.
Top |
Next |
Prev
- J.W. Cahn, Acta Metallurgica, 4, (1956), 449-459.
Top |
Next |
Prev
Input parameters
- BI - real
- BI is the ferrite random nucleation rate per unit volume (in
m-3s-1).
- TIME - real
- TIME is the time since the start of cooling (in seconds).
- ALP - real
- ALP is the one-dimensional parabolic thickening rate constant
(in ms-0.5).
- ALP1 - real
- ALP1 is the one-dimensional parabolic lengthening rate constant (in
ms-0.5).
- XBAR - real
- XBAR is the mole fraction of carbon in the bulk austenite.
- XAGA - real
- XAGA is the mole fraction of carbon in ferrite at the alpha/alpha+gamma
boundary.
- XGAG - real
- XGAG is the mole fraction of carbon in autenite at the gamma/gamma+alpha
boundary.
- PI - real
- PI is pi.
Output parameters
- NEWVF - real
- NEWVF is the actual fraction of allotriomorphic ferrite formed.
- NEWVOL - real
- NEWVOL is the volume fraction of ferrite formed divided by the equilibrium volume fraction of ferrite.
Top |
Next |
Prev
None.
Top |
Next |
Prev
No information supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
1. Program text
DOUBLE PRECISION BI,TIME,ALP1,XBAR,XAGA,XGAG
DOUBLE PRECISION PI,NEWVF,NEWVOL
INCLUDE 'map_constants_pi.f'
READ (5,*) BI,TIME,ALP1
READ (5,*) XBAR,XAGA,XGAG
CALL MAP_STEEL_AVOLNEW(NEWVF,NEWVOL,ALP1,TIME,BI,&
& XBAR,XAGA,XGAG,PI)
WRITE (6,*) NEWVF,NEWVOL
STOP
END
9.2 Program data
None supplied.
9.3 Program results
None supplied.
Top |
Next |
Prev
None.
Top |
Next |
Prev
allotriomorphic ferrite, random nucleation
Top |
Next |
Prev
Download source code
Top |
Prev