[MAP Logo]

Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_GSIZE2

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.

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 the austenite grain size.

Top | Next | Prev

Specification

Language:	FORTRAN
Product form:	Source code

SUBROUTINE MAP_STEEL_GSIZE2(C,SI,MN,CURR,VOLT,SPEED,A,BARL,OXYPPM,
&JI1,IFAIL)

DOUBLE PRECISION C,SI,MN,CURR,VOLT,SPEED,A,BARL,OXYPPM

INTEGER JI1,IFAIL

Top | Next | Prev

Description

MAP_STEEL_GSIZE2 calculates the austenite grain size, and BARL, a measure of the grain structure.

Top | Next | Prev

References

L.-E. Svensson, B. Gretoft and H.K.D.H. Bhadeshia, Scandinavian Journal of Metallurgy, 15, (1986), 97-103.
S. Park, Internal Report, ESAB AB, Sweden, 1980.
H.K.D.H. Bhadeshia, L.-E. Svensson and B. Gretoft, Welding and Performance of Pipelines, Welding Institute Conference, (1986), Paper 17.
S. Court and J. Pollard, Welding Metallurgy of Structural steels, ed. J.Y. Koo, TMS-AIME, (1987).
A.P. Chakravati, R. Thibau and S.R. Bala, Metal Construction, (1985), 178R.
E. Metzbower, U.S. Navy Laboratories, Washington, (private communication, 1993).

Top | Next | Prev

Parameters

Input parameters

C - real: C is the concentration of carbon (in weight percent).
SI - real: SI is the concentration of silicon (in weight percent).
MN - real: MN is the concentration of manganese (in weight percent).
CURR - real: CURR is the welding current (in amperes).
VOLT - real: VOLT is the welding voltage (in volts).
SPEED - real: SPEED is the welding speed (in metres per second).
OXYPPM - real: OXYPPM is the oxygen concentration (in parts per million by weight).
JI1 - integer
JI1 denotes the type of weld, taking a value between 1 and 14:-
: 1 - manual metal arc; 2 - metal cored wire, CO2 shielding - Ref [2]; 3 - metal cored wire, Fogon 20 shielding - Ref [2]; 4 - tandem submerged arc - Ref [3]; 5 - submerged arc; 6 - vertical-up MMA - Ref [4]; 7 - bead on plate FCAW - Ref [5]; 8 - bead on plate, self-shielded - Ref [5]; 9 - bead on plate SAW - Ref [5]; 10 - measured time-temperature horizontal GMAW - Ref [6]; 11 - measured time-temperature flat GMAW - Ref [6]; 12 - measured time-temperature vertical GMAW - Ref [6]; 13 - measured time-temperature vertical GMAW - Ref [6]; 14 - computed time-temperature for laser weld

Output parameters

A - real: A is the austenite grain size (in microns).
BARL - real: BARL is a measure of the grain structure (in microns).
IFAIL - integer
IFAIL takes the value :-: 1 if the carbon concentration exceeds 0.152,; 2 if the manganese concentration exceeds 1.93,; 3 if the silicon concentration exceeds 0.4,; 4 if CURR*VOLT/SPEED exceeds 4.3*10⁶,; 5 if the calculated value of BARL exceeds 150.0 and; 0 otherwise.

Top | Next | Prev

Error Indicators

IFAIL takes the value:: 1 if C > 0.152.
If C > 0.152, the routine uses a value of 0.152 for the carbon concentration.; 2 if MN > 1.93.
If MN > 1.93, the routine uses a value of 1.93 for the manganese concentration.; 3 if SI > 0.4.
If SI > 0.4, the routine uses a value of 0.4 for the silicon concentration.; 4 if (CURR*VOLT/SPEED) > 4.3*10⁶.
If (CURR*VOLT/SPEED) > 4.3*10⁶ it is set to 4.3*10⁶ by the routine.; 5 if the calculated value of BARL >= 150.0.

Accuracy

If the calculated value of BARL exceeds 150.0, then the austenite grain size calculation is uncertain.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION C,SI,MN,CURR,VOLT,SPEED,A,BARL,OXYPPM
       INTEGER JI1,IFAIL
       READ (5,*) C, SI, MN
       READ (5,*) CURR, VOLT, SPEED, OXYPPM
       READ (5,*) JI1
       CALL MAP_STEEL_GSIZE2(C,SI,MN,CURR,VOLT,SPEED,A,BARL,
&      OXYPPM,JI1,IFAIL)
       WRITE (6,10) A, BARL
10     FORMAT ('Austenite grain size = ',F10.5,' microns'
&      'BARL = ',F10.5,' microns')
       IF (IFAIL .NE. 0) WRITE(6,20) IFAIL
20     FORMAT('IFAIL = ',I1,', grain size calculation uncertain')
       STOP
       END