[MAP Logo]

Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_MART

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

To estimate a value for the volume fraction of martensite.

Top | Next | Prev

Specification

Language:	FORTRAN
Product form:	Source code

SUBROUTINE MAP_STEEL_MART(MS,TQ,VAUST,VMART,VAUSTR)

DOUBLE PRECISION MS,TQ,VAUST,VMART,VAUSTR

Top | Next | Prev

Description

MAP_STEEL_MART calculates a value for the volume fraction of martensite. An initial value is guessed, and later refined using the values of MS and TQ.

Top | Next | Prev

References

S.A. Khan and H.K.D.H. Bhadeshia, Materials Science and Engineering A, A129, (1990), 257-272.

Top | Next | Prev

Parameters

Input parameters

MS - real: MS is the martensite-start temperature of the alloy (in centigrade).
TQ - real: TQ is the ambient temperature for the retained austenite calculation.
VAUST - real: VAUST is the volume fraction of austenite.

Output parameters

VMART - real: VMART is the volume fraction of martensite.
VAUSTR - real: VAUSTR is the volume fraction of retained austenite.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

      DOUBLE PRECISION MS,TQ,VAUST,VMART,VAUSTR
      READ (*,*) MS,TQ,VAUST
      CALL MAP_STEEL_MART(MS,TQ,VAUST,VMART,VAUSTR)
      WRITE (*,1) VMART,VAUSTR
      STOP
1     FORMAT (1H ,'volume fraction of martensite = ',F7.3/
     &        1H ,'volume fraction of austenite  = ',F7.3)
      END