[MAP Logo]

Materials Algorithms Project
Program Library


Program MAP_STEEL_MUCG46B

  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

Hong-Seok Yang,
Computational Metallurgy Laboratory,
Graduate Institute of Ferrous Technology,
Pohang University of Science and Technology,
Pohang, South Korea

Top| Next

Purpose

MUCG46 has been enhanced in order to calculate martensite-start temperature including the effect of austenite grain size, stress and plastic strain in the austenite prior to its transformation.

Top| Next| Prev

Specification

Language: FORTRAN
Product form: Source code

PROGRAM MAP_STEEL_MUCG46B

DOUBLE PRECISION BDIF(40), BSH(40), BTEM(40), C(8), DFPRO(40), DDFTO(40),
& DT4(40), DXQ(40)

DOUBLE PRECISION A, A1, A44, AEQ, AFE, AFE44, AFEQ, AJ, AJ1, BS, CONST,
& CORR,CTEMP, DA44, DAFE44, DF441, DIFFT, ETEQ, ETEQ2, F, F44, FPRO,
& FPROA, FSON, FTO, GMAX, H, H1, MS, R, S, S1, SHEART, SLOPE, STRAIN, T,
& T10, T20, TEQ, TEQ2, V14, W, W1, WS, WS1, X, XA, X1, X44, XBAR, XEQ,
& XEQ2, XMS, XTO, XTO400

DOUBLE PRECISION MAP_STEEL_AFEG, MAP_STEEL_CG, MAP_STEEL_DAFEG,
& MAP_STEEL_DCG, MAP_STEEL_ENERGY, MAP_STEEL_FTO1, MAP_STEEL_WSFUN

INTEGER I, IK, IMAX, J1, J2, J5, J6, J8, J98, J99

Top| Next| Prev

Description

The program is same with MUCG46 but calculates martensite-start temperature as a function of chemical composition, prior austenite grain size, external stress and pre-strain

Top| Next| Prev

References

  1. H.K.D.H. Bhadeshia, A thermodynamic analysis of isothermal transformation diagrams, Metal Science, 16(1982) 159-165.
  2. H.K.D.H. Bhadeshia, Bainite in Steels , Institute of Materials, London (2001), 1-450.
  3. H.K.D.H. Bhadeshia, Rationalisation of Shear Transformations in Steels, Acta Metallurgica, Vol. 29, 1981, pp. 1117-1130.
  4. H.K.D.H. Bhadeshia, Critical Assessment of Growth of Plates in Steels, Materials Science and Technology, Vol. 1, 1985, pp. 497-504.
  5. Hong-Seok Yang and H.K.D.H. Bhadeshia, 2011

Top| Next| Prev

Parameters

Input parameters

C- real array of dimension 8
C holds the composition of each alloy:-
C(1) is the Carbon concentration (in weight percent).
C(2) is the Silicon concentration (in weight percent).
C(3) is the Manganese concentration (in weight percent).
C(4) is the Nickel concentration (in weight percent).
C(5) is the Molybdenum concentration (in weight percent).
C(6) is the Chromium concentration (in weight percent).
C(7) is the Vanadium concentration (in weight percent).
C(8) is the Ferrite concentration (not entered).

Gs- Prior austenite grain size in um
Stress- External stress in MPa
Prestr- Pre-Strain


Output parameters

None
All output is to STDOUT.

Top| Next| Prev

Error Indicators

Allowable composition ranges limited - see Description.

Top| Next| Prev

Accuracy

No information supplied.

Top| Next| Prev

Further Comments

None.

Top| Next| Prev

Example

1. Program text

       N/A - complete program

2. Program data

1
0.1  0  0.5  0  0  0  0  50  2  100  1

3. Program results


-------------------------------------------------------------------------------------------------------------------------------

 *******NUMBER      1  *********
    C=  0.1000   SI=  0.0000   MN=  0.5000   NI=  0.0000   MO=  0.0000   CR=  0.0000    V=  0.0000
    C=  0.0046   SI=  0.0000   MN=  0.0051   NI=  0.0000   MO=  0.0000   CR=  0.0000    V=  0.0000
    Austenite Grain Size= 50.    Applied Stress=  100.     Pre-strain=0.00

  CARBON CONTENT=   0.00463  T10=  0.010225  T20= -0.191722   WGAMMA=  8388.
-------------------------------------------------------------------------------------------------------------------------------
   FPRO  FPROA   GMAX  CTEMP  X NUCLEUS  FSON      XEQ    XEQ50   FTO      XTO      X44   XTO400     SHEART     DIFFT
  -3018. -3075. -3185.  200.  0.49E-08  -3145.   0.1975   0.1962 -2946.  0.0834   0.0615  0.0646    0.16E+05   0.23E+24
  -2879. -2935. -3031.  220.  0.11E-07  -3005.   0.1920   0.1907 -2812.  0.0805   0.0592  0.0623    0.39E+04   0.13E+22
  -2740. -2794. -2908.  240.  0.24E-07  -2865.   0.1864   0.1851 -2678.  0.0765   0.0574  0.0597    0.10E+04   0.11E+20
  -2601. -2654. -2762.  260.  0.49E-07  -2726.   0.1808   0.1794 -2545.  0.0728   0.0549  0.0564    0.34E+03   0.14E+18
  -2462. -2514. -2621.  280.  0.94E-07  -2587.   0.1749   0.1735 -2411.  0.0693   0.0524  0.0529    0.13E+03   0.26E+16
  -2323. -2375. -2481.  300.  0.17E-06  -2447.   0.1690   0.1675 -2277.  0.0662   0.0499  0.0497    0.54E+02   0.68E+14
  -2185. -2235. -2341.  320.  0.30E-06  -2308.   0.1629   0.1613 -2143.  0.0622   0.0474  0.0465    0.26E+02   0.24E+13
  -2047. -2096. -2201.  340.  0.52E-06  -2169.   0.1566   0.1549 -2009.  0.0580   0.0449  0.0434    0.13E+02   0.11E+12
  -1909. -1956. -2062.  360.  0.84E-06  -2029.   0.1501   0.1484 -1875.  0.0541   0.0423  0.0404    0.79E+01   0.64E+10
  -1771. -1818. -1922.  380.  0.13E-05  -1890.   0.1435   0.1416 -1742.  0.0504   0.0398  0.0373    0.51E+01   0.47E+09
  -1634. -1679. -1782.  400.  0.21E-05  -1751.   0.1365   0.1345 -1608.  0.0470   0.0372  0.0341    0.36E+01   0.43E+08
  -1514. -1558. -1664.  420.  0.31E-05  -1629.   0.1301   0.1280 -1492.  0.0443   0.0354  0.0314    0.26E+01   0.45E+07
  -1406. -1449. -1551.  440.  0.46E-05  -1520.   0.1239   0.1217 -1388.  0.0419   0.0340  0.0292    0.20E+01   0.56E+06
  -1298. -1340. -1441.  460.  0.66E-05  -1411.   0.1176   0.1153 -1283.  0.0393   0.0326  0.0270    0.16E+01   0.82E+05
  -1191. -1231. -1334.  480.  0.93E-05  -1302.   0.1111   0.1087 -1179.  0.0366   0.0313  0.0248    0.14E+01   0.14E+05
  -1084. -1123. -1222.  500.  0.13E-04  -1192.   0.1044   0.1019 -1075.  0.0340   0.0300  0.0226    0.14E+01   0.27E+04
   -977. -1015. -1112.  520.  0.17E-04  -1083.   0.0975   0.0948  -971.  0.0315   0.0287  0.0203    0.14E+01   0.62E+03
   -871.  -908. -1004.  540.  0.23E-04   -974.   0.0903   0.0874  -867.  0.0291   0.0275  0.0179    0.15E+01   0.16E+03
   -765.  -801.  -894.  560.  0.31E-04   -866.   0.0828   0.0798  -763.  0.0269   0.0264  0.0152    0.19E+01   0.49E+02
   -661.  -695.  -783.  580.  0.40E-04   -757.   0.0750   0.0717  -659.  0.0243   0.0248  0.0124    0.26E+01   0.17E+02
   -556.  -589.  -673.  600.  0.52E-04   -648.   0.0668   0.0634  -555.  0.0218   0.0228  0.0095    0.40E+01   0.72E+01
   -453.  -484.  -564.  620.  0.67E-04   -540.   0.0582   0.0545  -451.  0.0191   0.0220  0.0065    0.72E+01   0.36E+01
   -352.  -381.  -462.  640.  0.84E-04   -432.   0.0492   0.0452  -347.  0.0162   0.0216  0.0032    0.15E+02   0.21E+01
   -349.  -378.  -453.  660.  0.10E-03   -430.   0.0484   0.0444  -350.  0.0163   0.0303  0.0033    0.13E+02   0.64E+00
   -274.  -301.  -370.  680.  0.13E-03   -349.   0.0411   0.0369  -273.  0.0144 ********  0.0005    0.28E+02   0.43E+00
   -209.  -235.  -298.  700.  0.16E-03   -279.   0.0345   0.0301  -206.  0.0124 ********  0.0000    0.65E+02   0.32E+00
   -155.  -178.  -237.  720.  0.19E-03   -217.   0.0285   0.0239  -149.  0.0105 ********  0.0000    0.17E+03   0.27E+00
   -109.  -130.  -180.  740.  0.23E-03   -164.   0.0230   0.0183  -100.  0.0088 ********  0.0000    0.55E+03   0.28E+00
    -71.   -90.  -134.  760.  0.27E-03   -118.   0.0182   0.0133   -57.  0.0072 ********  0.0000    0.21E+04   0.35E+00
    -41.   -57.   -92.  780.  0.32E-03    -80.   0.0140   0.0089   -20.  0.0058 ********  0.0000    0.11E+05   0.59E+00
    -19.   -31.   -57.  800.  0.37E-03    -47.   0.0103   0.0051    11.  0.0045 ********  0.0000    0.11E+06   0.16E+01
     -5.   -12.   -31.  820.  0.42E-03    -20.   0.0071   0.0018     0.  0.0033 ********  0.0000    0.20E+07   0.78E+01

    ***** FTO VERSUS TEMPERATURE ****

 WIDMANSTATTEN START TEMPERATURES    760. &    760.
 GROWTH LIMITED BAINITE START TEMP=   616. C
 MARTENSITE START TEMPERATURE=   517. C
-------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------------

Top| Next| Prev

Auxiliary Routines

Steel Subroutines

MAP_STEEL_AXTO
MAP_STEEL_GMAAX
MAP_STEEL_OMEGA
MAP_STEEL_TTTT
MAP_STEEL_WSTINE

Steel Functions

MAP_STEEL_AFEG
MAP_STEEL_CG
MAP_STEEL_DAFEG
MAP_STEEL_DCG
MAP_STEEL_ENERGY
MAP_STEEL_FTO1
MAP_STEEL_WSFUN

Utility Subroutines

MAP_UTIL_ANALY
MAP_UTIL_REED
MAP_UTIL_REEDI

Top| Next| Prev

Keywords

Widmanstatten, bainite, martensite, start temperature

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.

Top | MAP Homepage

?