# Materials Algorithms Project Program Library

## Program MAP_TTTtoCCTlinear

### Provenance of Source Code

Mathew Peet and Teruhisa Okumara
Phase Transformations and Complex Properties Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

### Purpose

Simple program in FORTRAN to calculate CCT diagram.

Top | Next | Prev

### Specification

 Language: Fortran 77 Product form: Source code.

Top | Next | Prev

### Description of Program

An input TTT curve is converted into a CCT curve using Scheil's additive reaction rule, for linear cooling. The calculated natural cooling curve is divided into a series of small isothermal steps.

Based on MAP_STEEL_TTT_TO_CCT

No error checking exists, no account of the range of applicability of the formulae is made.

Top | Next | Prev

### References

S.J. Jones and H.K.D.H. Bhadeshia, MAP_STEEL_TTT_TO_CCT

Top | Next | Prev

### Parameters

#### Input parameters

IINFORM - integer
IINFORM specifies the format of the input TTT curve.

IPAIRS - integer
IPAIRS specifies the number of points in the input TTT curve.

THEQU - real
THEQU is the temperature above which the product phase cannot form (°C).

PAE3 - real
PAE3 is the Ae3' temperature above which the ferrite cannot form under paraequilibrium conditions. At this temperature the time is set to zero (°C).

MS - real
MS is the martensite start temperature (°C).

ISWITCH - integer
ISWITCH is a flag which if set to unity causes all the arrays in the subroutine to be initialised. This is needed if the subroutine is called more than once.

TITTT - real
TITTT is an array used to store the transformation start times for the input TTT curve (s).

TMTTT - real
TMTTT is an array used to store the temperature for the input TTT curve (°C).

#### Output parameters

Cooling rate in K/s, Temperature at which transformation starts in Celcius and corresponding time for start of transformation in seconds.

#### 2. Program data

```	1 29 0.8139E3 0.8139E3 0.4746E3 0
0.7600E+03 0.1675E+12
0.7400E+03 0.2112E+06
0.7200E+03 0.7462E+03
0.7000E+03 0.6394E+02
0.6800E+03 0.2026E+02
0.6600E+03 0.9643E+01
0.6400E+03 0.6796E+01
0.6200E+03 0.8430E+01
0.6000E+03 0.3299E+02
0.5800E+03 0.4692E+02
0.5600E+03 0.9134E+02
0.5400E+03 0.2300E+03
0.5200E+03 0.7192E+03
0.5000E+03 0.2730E+04
0.4800E+03 0.1234E+05
0.4600E+03 0.6583E+05
0.4400E+03 0.4225E+06
0.4200E+03 0.3220E+07
0.4000E+03 0.2945E+08
0.3800E+03 0.3262E+09
0.3600E+03 0.4437E+10
0.3400E+03 0.7165E+11
0.3200E+03 0.1487E+13
0.3000E+03 0.4106E+14
0.2800E+03 0.1507E+16
0.2600E+03 0.7929E+17
0.2400E+03 0.5942E+19
0.2200E+03 0.6672E+21
0.2000E+03 0.1192E+24

```

#### 3. Program Results

``` RATE  |  TMCCT  |    TICCT    |
0.178E-04     756.2    0.3242E+07
0.316E-04     753.3    0.1916E+07
0.562E-04     748.1    0.1170E+07
0.100E-03     740.0    0.7390E+06
0.178E-03     739.9    0.4159E+06
0.316E-03     739.8    0.2342E+06
0.562E-03     739.7    0.1320E+06
0.100E-02     739.3    0.7458E+05
0.178E-02     738.7    0.4226E+05
0.316E-02     737.7    0.2409E+05
0.562E-02     735.9    0.1388E+05
0.100E-01     732.6    0.8129E+04
0.178E-01     726.8    0.4898E+04
0.316E-01     719.7    0.2979E+04
0.562E-01     718.1    0.1703E+04
0.100E+00     715.3    0.9857E+03
0.178E+00     710.3    0.5823E+03
0.316E+00     701.5    0.3554E+03
0.562E+00     695.5    0.2106E+03
0.100E+01     686.6    0.1273E+03
0.178E+01     675.6    0.7775E+02
0.316E+01     662.3    0.4794E+02
0.562E+01     644.9    0.3005E+02
0.100E+02     552.6    0.2613E+02
0.178E+02     200.0    0.3452E+02
0.000E+00       0.0    0.0000E+00
0.000E+00       0.0    0.0000E+00
0.000E+00       0.0    0.0000E+00
0.000E+00       0.0    0.0000E+00
0.000E+00       0.0    0.0000E+00
```

Top | Next | Prev

### Auxiliary Routines

None

Top | Next | Prev