![[MAP Logo]](../../maplogo1.gif) 
H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
To calculate the temperature at which the two C Curves cross.
| Language: | FORTRAN | 
| Product form: | Source code | 
MAP_STEEL_TLL performs calculations of TTT data for solute depleted regions.
None.
No information supplied.
None.
       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
None supplied.
None supplied.
temperature, C curves
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk