![[MAP Logo]](../../maplogo1.gif) 
Materials Algorithms Project
Program Library
 - 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.
H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Top | 
Next
Used by MAP_STEEL_MART in estimating the volume fraction of martensite.
Top | 
Next | 
Prev
| Language: | FORTRAN | 
| Product form: | Source code | 
DOUBLE PRECISION FUNCTION MAP_STEEL_GMART(VMART,MS,TQ)
DOUBLE PRECISION VMART,MS,TQ
Top | 
Next | 
Prev
MAP_STEEL_GMART = - log(1 - VMART)/VMART - M(MS - TQ) - 1
where [1] gives a value of M of 0.0029.
Top | 
Next | 
Prev
  - S.A. Khan and H.K.D.H. Bhadeshia, Materials Science and Engineering A, 
      129A, (1990), 257-272.
Top | 
Next | 
Prev
Input parameters
- VMART - real
- VMART is the current estimate of the volume fraction of 
     martensite.
 
 
- MS - real
- MS is the martensite-start temperature of the alloy (in Kelvin).
 
 
- TQ - real
- TQ is the ambient temperature for the retained austenite calculation (in 
     Kelvin).
 
 
- M - real
- M is a constant. See [1] for a value of M of 0.0029.
 
 
Output parameters
- MAP_STEEL_GMART - real function
- See description.
 
 
Top | 
Next | 
Prev
None.
Top | 
Next | 
Prev
No information supplied.
Top | 
Next | 
Prev
None.
Top | 
Next | 
Prev
1. Program text
      DOUBLE PRECISION VMART,MS,TQ,MAP_STEEL_GMART,XGM
      READ (*,*) VMART,MS,TQ
      XGM=MAP_STEEL_GMART(VMART,MS,TQ)
      WRITE (*,*) XGM
      STOP
      END
2. Program data
0.09089 36.4 20.0
3. Program results
 8.411445D-04
Top | 
Next | 
Prev
None.
Top | 
Next | 
Prev
martensite
Top | 
Next | 
Prev
Download source code
Top | 
Prev