H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
To calculate the free energy needed to nucleate Widmanstätten ferrite.
Language: | FORTRAN |
Product form: | Source code |
MAP_STEEL_WSFUN calculates the free energy needed to nucleate Widmanstätten ferrite. If MAP_STEEL_WSFUN is greater than or equal to zero, there is no problem with nucleation. For the Gn curve for Widmanstätten ferrite nucleation see [1].
None.
The calculation is of the form alpha(KTEMP - t0) - beta, where alpha is given to 9 decimal places, beta is given to 3 decimal places, and t0 is 273.15
None.
DOUBLE PRECISION KTEMP, WSTEST, MAP_STEEL_WSFUN, T0 INCLUDE 'map_constants_t0.f' READ (5,*) KTEMP WSTEST= MAP_STEEL_WSFUN(KTEMP, T0) WRITE (6,10) WSTEST 10 FORMAT ('Free energy for nucleation = ', D13.5) STOP END
1000.0
Free energy for nucleation = 0.18052D+03
None.
Widmanstatten, ferrite, nucleation, free energy
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk