Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_BORON

1. Provenance of code.
2. Purpose of code.
3. Specification.
4. Description of subroutine's operation.
5. References.
6. Parameter descriptions.
7. Error indicators.
8. Accuracy estimate.
9. Any additional information.
10. Example of code
11. Auxiliary subroutines required.
12. Keywords.
13. Download source code.
14. Links.

Provenance of Source Code

H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

Evaluates the solubility of boron in austenite at a given temperature.

Top | Next | Prev

Specification

Top | Next | Prev

Description

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.

Top | Next | Prev

References

1. T.B. Cameron and J.E. Morral, Metall. Trans. A, 17A, (1986), 1481-3.

Top | Next | Prev

Parameters

Input parameters

KTEMP - real

KTEMP is the temperature (in kelvin).

R - real

R is the universal gas constant (in joules per mole per kelvin, Jmol^-1K^-1).

Output parameters

PPMBG - real

PPMBG is the solubility of boron in austenite (in parts per million by weight).

IFAIL - integer

IFAIL=1 if KTEMP is outside the valid range 1176 - 1428 K, IFAIL=0 otherwise.

Top | Next | Prev

Error Indicators

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.

Top | Next | Prev

Accuracy

Valid within the range 1176 - 1428 K.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       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

2. Program data

1200.0

3. Program results

For temperature  1200.00K, solubility is  12.9090 parts per million by weight.

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

boron, austenite

Top | Next | Prev

Download

Download source code

Top | Prev