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