[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_STEEL_MART2

  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

To estimate the volume fraction of martensite.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

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

DOUBLE PRECISION MS,TQ,VAUST,VMART,VAUSTR

Top | Next | Prev

Description

MAP_STEEL_MART2 estimates the volume fraction of martensite VMART, using the formula:

VMART = (1 - e{-0.011(MS-TQ)})*VAUST

Top | Next | Prev

References

  1. D.P. Koistinen and R.E. Marburger, Acta Metallurgica, 7, (1959), 59.

Top | Next | Prev

Parameters

Input parameters

MS - real
MS is the martensite-start temperature of the alloy.

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_MART2(MS,TQ,VAUST,VMART,VAUSTR)
      WRITE (*,1) VMART,VAUSTR
      STOP
1     FORMAT (1H ,'volume fraction of martensite = ',F8.6/
     & 1H ,       'volume fraction of austenite  = ',F8.6)
      END

2. Program data

400 20 1

3. Program results

 volume fraction of martensite = 0.984701
 volume fraction of austenite  = 0.015299

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

martensite, volume fraction

Top | Next | Prev

Download

Download source code

Top | Prev

MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.

MAP Website administration / map@msm.cam.ac.uk

Top | Index | MAP Homepage Valid HTML 3.2!