[MAP Logo]

Materials Algorithms Project
Program Library



Subroutine MAP_STEEL_TLL

  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 calculate the temperature at which the two C Curves cross.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_STEEL_TLL(SHEARH,DIFFH,DCTEMP,TL,J8)

DOUBLE PRECISION SHEARH(40),DIFFH(40),DCTEMP(40),TL

INTEGER J8

Top | Next | Prev

Description

MAP_STEEL_TLL performs calculations of TTT data for solute depleted regions.

Top | Next | Prev

References

  1. H.K.D.H. Bhadeshia, L.-E. Svensson and B. Gretoft, Acta Metallurgica, 33, (1985), 1271-1283.

Top | Next | Prev

Parameters

Input parameters

SHEARH - real array of dimension <= 40
SHEARH is ????.

DIFFH - real array of dimension <= 40
DIFFH is ????.

DCTEMP - real array of dimension <= 40
DCTEMP is ????.

J8 - integer
J8 is the number of elements in each of DIFFH, SHEARH and DCTEMP.

Output parameters

TL - real
TL is the temperature at which the curves cross.

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 SHEARH(40), DIFFH(40), DCTEMP(40)
       DOUBLE PRECISION TL
       INTEGER I, J8
C
       WRITE(6,*) 'No. of elements in arrays'
       READ(5,*) J8
       WRITE(6,*)
C
       DO 10, I = 1, J8
        WRITE(6,*) 'Element ',I , ' of SHEARH'
        READ(5,*) SHEARH(I)
        WRITE(6,*) 'Element ',I , ' of DIFFH'
        READ(5,*) DIFFH(I)
        WRITE(6,*) 'Element ',I , ' of DCTEMP'
        READ(5,*) DCTEMP(I)
        WRITE(6,*)
10     CONTINUE
       WRITE(6,*)
C
       CALL MAP_STEEL_TLL(SHEARH,DIFFH,DCTEMP,TL,J8)
C
       WRITE(6,1000) TL
C
       STOP
1000   FORMAT('TL is ', D13.5)
       END

2. Program data

None supplied.

3. Program results

None supplied.

Top | Next | Prev

Auxiliary Routines

MAP_UTIL_ANALY

Top | Next | Prev

Keywords

temperature, C curves

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!