H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Conversion to Fortran 90 by S. Cardie
Address as above.
Module containing four public functions which allow the calculation of activity of iron and carbon in austenite.
Language: | FORTRAN 90 |
Product form: | Source code. |
MODULE MAP_Steel_Activity CONTAINS FUNCTION MAP_STEEL_AFEG(T,W,XEQ) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),INTENT(IN):: T,W,XEQ REAL(KIND=real_8_30) :: MAP_STEEL_AFEG END FUNCTION MAP_STEEL_AFEG FUNCTION MAP_STEEL_DAFEG(T,W,XEQ) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),INTENT(IN):: T,W,XEQ REAL(KIND=real_8_30) :: MAP_STEEL_DAFEG END FUNCTION MAP_STEEL_DAFEG FUNCTION MAP_STEEL_CG(T,W,XEQ) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),INTENT(IN):: T,W,XEQ REAL(KIND=real_8_30) :: MAP_STEEL_CG END FUNCTION MAP_STEEL_CG FUNCTION MAP_STEEL_DCG(T,W,XEQ) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),INTENT(IN):: T,W,XEQ REAL(KIND=real_8_30) :: MAP_STEEL_DCG END FUNCTION MAP_STEEL_DCG END MODULE MAP_Steel_Activity
MAP_STEEL_AFEG calculates the natural log of the activity of iron in austenite, and MAP_STEEL_DAFEG its differential with respect to X (see below). MAP_STEEL_CG and MAP_STEEL_DCG calculate the natural log of the activity of carbon in austenite and its differential with respect to X respectively.
Calculations are based on the theory contained in [1,2,3]. The carbon-carbon interaction energy used is calculated according to [4].
None.
No information supplied.
See also the corresponding Fortran 77 routines:
PROGRAM MAP_ACTIVITY_TEST USE MAP_Util_Global_Data USE MAP_Steel_Free_Energy USE MAP_Steel_Activity IMPLICIT NONE ! ! Variable declarations ! REAL(KIND=real_8_30) :: T,W,X,& AFEG, DAFEG, CG, DCG READ(5,*) T,W,X AFEG = MAP_STEEL_AFEG(T,W,X) DAFEG = MAP_STEEL_DAFEG(T,W,X) CG = MAP_STEEL_CG(T,W,X) DCG = MAP_STEEL_DCG(T,W,X) WRITE(6,1000) WRITE(6,1001) AFEG,DAFEG WRITE(6,1002) CG,DCG WRITE(6,1003) STOP 1000 FORMAT('Activities and differentials of ...') 1001 FORMAT(3X,'Iron: ',2X,F12.3,F12.3) 1002 FORMAT(3X,'Carbon: ',F12.3,F12.3) 1003 FORMAT(' ... in austenite') END PROGRAM MAP_ACTIVITY_TEST
4.7300000000000000E+02 8.7324743196967374E+03 1.7560130583041827E-02
Activities and differentials of ... Iron: -0.020 -26.136 Carbon: 4.377 70.652 ... in austenite
Module:
MAP_Util_Global_Data
activity, carbon, iron, austenite
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk