H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Evaluates the solubility of boron in austenite at a given temperature.
Language: | FORTRAN |
Product form: | Source code |
MAP_STEEL_BORON calculates the solubility of boron in austenite at a given temperature (in kelvin). The solubility is given in parts per million by weight.
The formula used in the calculation is:-
PPMBG = e{9.674 - 71000/R*KTEMP}
where R is the gas constant.
IFAIL is set to zero on entry to the subroutine. If KTEMP falls outside the valid range of 1176 - 1428 K, IFAIL is set to 1, and the calculation is aborted.
Valid within the range 1176 - 1428 K.
None.
DOUBLE PRECISION PPMBG, KTEMP, R INTEGER IFAIL INCLUDE 'map_constants_gas.f' READ (5,*) KTEMP CALL MAP_STEEL_BORON(PPMBG,KTEMP,IFAIL,R) IF (IFAIL .EQ. 1) GOTO 20 WRITE (6,10) KTEMP, PPMBG 10 FORMAT('For temperature ',F8.2,'K, solubility is ',F8.4,' parts per & million by weight') GOTO 40 20 WRITE (6,30) KTEMP 30 FORMAT('KTEMP is ',F8.2,'K, outside valid range 1176 - 1428K.') STOP END
1200.0
For temperature 1200.00K, solubility is 12.9090 parts per million by weight.
None.
boron, austenite
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk