Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_GSIZE1

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

Calculates BARL, a measure of the austenite grain structure.

Top | Next | Prev

Specification

Top | Next | Prev

Description

MAP_STEEL_GSIZE1 uses a known value for the austenite grain size to calculate BARL, a measure of the grain structure.

Top | Next | Prev

References

1. L.-E. Svensson, B. Gretoft and H.K.D.H. Bhadeshia, Scandinavian Journal of Metallurgy, 15, (1986), 97-103.

Top | Next | Prev

Parameters

Input parameters

A - real

A is the austenite grain size (in microns).

Output parameters

BARL - real

BARL is a measure of the grain structure (in microns).

IFAIL - integer

IFAIL takes a value of 1 if BARL < 150.0, 0 otherwise.

Top | Next | Prev

Error Indicators

IFAIL is set to 1 if the calculated value of BARL exceeds 150.0.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

See also MAP_STEEL_GSIZE2.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION A,BARL
       INTEGER IFAIL
       READ (5,*) A
       CALL MAP_STEEL_GSIZE1(A,BARL,IFAIL)
       WRITE (6,10) BARL
10     FORMAT ('BARL = ',F10.5,' microns')
       IF (IFAIL .NE. 0) WRITE (6,20) 
20     FORMAT ('Check value for austenite grain size')
       STOP
       END

2. Program data

100.0

3. Program results

BARL = 68.020 microns

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

austenite, grain size, BARL

Top | Next | Prev

Download

Download source code

Top | Prev