Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_RWELD

1. Provenance of code.
2. Purpose of code.
3. Specification.
4. Description of subroutine's operation.
5. References.
6. Parameter descriptions.
7. Error indicators.
8. Accuracy estimate.
9. Any additional information.
10. Example of code
11. Auxiliary subroutines required.
12. Keywords.
13. Download source code.
14. Links.

Provenance of Source Code

H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

Calculates the heat output of a welding arc.

Top | Next | Prev

Specification

Top | Next | Prev

Description

MAP_STEEL_RWELD calculates the heat output using the formula:

HEAT = VOLT*CURR/SPEED

with no account being taken of the arc weld efficiency.

Top | Next | Prev

References

None supplied.

Top | Next | Prev

Parameters

Input parameters

CURR - real

CURR is the welding current (in amperes).

VOLT - real

VOLT is the welding voltage (in volts).

SPEED - real

SPEED is the welding speed (in metres per second).

Output parameters

HEAT - real

HEAT is the heat output (in joules per metre, Jm^-1). No account is made of the efficiency.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

      DOUBLE PRECISION CURR, VOLT, SPEED, HEAT
      WRITE (*,*) 'Input current, voltage and speed:'
      READ (*,*) CURR, VOLT, SPEED
      CALL MAP_STEEL_RWELD(CURR, VOLT, SPEED, HEAT)
      WRITE (*,1) CURR, VOLT, SPEED
      WRITE (*,2) HEAT
      STOP
 1    FORMAT(1H /'Current= ',F10.2,' Amps.'/'Voltage= ',F10.2,' Volts'/
     &  'Speed=   ',F10.5,' m/s')         
 2    FORMAT('The heat output is ',D11.4,' J/m')
      END

2. Program data

 Input current, voltage and speed:
400 30 0.01

3. Program results

Current=     400.00 Amps.
Voltage=      30.00 Volts
Speed=      0.01000 m/s
The heat output is  0.1200D+07 J/m

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

heat, efficiency, weld

Top | Next | Prev

Download

Download source code

Top | Prev