Materials Algorithms Project
Program Library
 Provenance of code.
 Purpose of code.
 Specification.
 Description of subroutine's operation.
 References.
 Parameter descriptions.
 Error indicators.
 Accuracy estimate.
 Any additional information.
 Example of code
 Auxiliary subroutines required.
 Keywords.
 Download source code.
 Links.
H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Top 
Next
To obtain the cooling rate of a steel weld at a specified temperature.
Top 
Next 
Prev
Language:  FORTRAN

Product form:  Source code 
DOUBLE PRECISION FUNCTION MAP_STEEL_CULRAT(T,TINT,C1,C2,CURR,VOLT,EFF,SPEED)
DOUBLE PRECISION T,TINT,C1,C2,CURR,VOLT,EFF,SPEED
DOUBLE PRECISION MAP_STEEL_CULRAT,XCUL
Top 
Next 
Prev
MAP_STEEL_CULRAT calculates the cooling rate of a steel weld at a specified temperature. The heat flow constants C_{1} and C_{2} derive from equation (1b)
of Ref [1]:
dT/dt = (C_{1}/Q*eta)(T  T_{i})^{C2}
 where :
 dT/dt is the cooling rate,
 Q is the heat input (Jm^{1}),
 eta is the arc weld efficiency and
 T_{i} is the interpass temperature.
Top 
Next 
Prev
 L.E. Svensson, B. Gretoft and H.K.D.H. Bhadeshia, Scandinavian
Journal of Metallurgy, 15, (1986), 97103.
Top 
Next 
Prev
Input parameters
 T  real
 T is the temperature (in kelvin).
 TINT  real
 TINT is the interpass or preheat temperature (in kelvin).
 C1  real
 C1 is the heat flow constant described above.
 C2  real
 C2 is the heat flow constant described above.
 CURR  real
 CURR is the welding current (in amperes).
 VOLT  real
 VOLT is the welding voltage (in volts).
 EFF  real
 EFF is the arc transfer efficiency.
 SPEED  real
 SPEED is the welding speed (in metres per second, ms^{1}).
Output parameters
 CULRAT  real
 CULRAT is the cooling rate (in degrees Kelvin/second).
Top 
Next 
Prev
None.
Top 
Next 
Prev
No information supplied.
Top 
Next 
Prev
None.
Top 
Next 
Prev
1. Program text
C Test program for the function MAP_STEEL_CULRAT
C
C
DOUBLE PRECISION T,TINT,C1,C2,CURR,VOLT,EFF,SPEED
DOUBLE PRECISION MAP_STEEL_CULRAT,XCUL
READ (*,*) T,TINT,C1,C2
READ (*,*) CURR,VOLT,EFF,SPEED
XCUL=MAP_STEEL_CULRAT(T,TINT,C1,C2,CURR,VOLT,EFF,SPEED)
WRITE (*,1) T,XCUL
STOP
1 FORMAT (1H ,'Cooling rate at ',F7.2,' Kelvin is ', F6.3,
& ' Kelvin/second')
END
2. Program data
850.0 523.0 5.9 2.417
179.0 24.0 0.775 0.0012
3. Program results
Cooling rate at 850.00 Kelvin is 2.543 Kelvin/second
Top 
Next 
Prev
None.
Top 
Next 
Prev
cooling rate, weld, steel
Top 
Next 
Prev
Download source code
Top 
Prev