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