[MAP Logo]

Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_WSTINE

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 upper and lower intersections of the G_n and F_pro curves.

Top | Next | Prev

Specification

Language:	FORTRAN
Product form:	Source code

SUBROUTINE MAP_STEEL_WSTINE(DFPRO,WS,WS1,J8)

DOUBLE PRECISION DFPRO(40),WS,WS1

INTEGER J8

Top | Next | Prev

Description

The free energy needed to nucleate Widmanstätten ferrite is calculated by function MAP_STEEL_WSFUN.

DFPRO contains the values of FPRO, where:-: FPRO = R*T(X1(AEQ-A) + (1-X1)(AFEQ -AFE)); where R is the gas constant, T is the temperature, X1 is the carbon concentration in austenite, A is the natural logarithm of the activity of carbon in austenite.

Top | Next | Prev

References

Acta Metall., (1981).

Top | Next | Prev

Parameters

Input parameters

J8 - integer: J8 is the size of the array DFPRO.
DFPRO - real array of dimension J8 <= 40: DFPRO contains the values of FPRO, as defined above.

Output parameters

WS - real: WS is the upper intersection of the G_n and F_pro curves.
WS1 - real: WS1 is the lower intersection of the G_n and F_pro curves.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

For further information, see function MAP_STEEL_WSFUN.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION DFPRO(40), WS, WS1
       INTEGER J8,I
       READ (5,*) J8
       READ (5,*) (DFPRO(I), I=1,J8)
       CALL MAP_STEEL_WSTINE(DFPRO,WS,WS1,J8)
       WRITE (6,10) WS
       WRITE (6,20) WS1
10     FORMAT ('Upper intersection of Gn and Fpro curves = ',F10.4)
20     FORMAT ('Lower intersection of Gn and Fpro curves = ',F10.4)
       STOP
       END