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 C1 and C2 derive from equation (1b)
of Ref [1]:
dT/dt = (C1/Q*eta)(T - Ti)C2
- where :-
- dT/dt is the cooling rate,
- Q is the heat input (Jm-1),
- eta is the arc weld efficiency and
- Ti is the interpass temperature.
Top |
Next |
Prev
- L.-E. Svensson, B. Gretoft and H.K.D.H. Bhadeshia, Scandinavian
Journal of Metallurgy, 15, (1986), 97-103.
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