DATE     95/05/11

    Procédure ARCGAU
    ________________

    CHPO1 = ARCGAU TAB1 ;

		TAB1.'PUISSANCE' .'RENDEMENT'
		    .'DIFFUSVITE'  .'CONDUCTIVITE'
		    .'VITESSE'
		    .'T0' .'TFUSION'
		    .'NTERMES'
		    .'MAILLAGE'
		    .'EPAISSEUR'
		    .'LOCAL' .'INSTANT'
		    .'PRECISION'
		    .'NSURFACES' .'SURFACE'
		    .'GAUSS' .'ECART-TYPE'

    Description :
    _____________

    This procedure calculates the temperature field created by the
    displacement of a welding arc on an inifinite plate. The arc is
    ponctual or gaussian and is moved along the X axis.
    The width of the melted area (width of TFUSION isotherm) is 
    evaluated for each surface given in the table.
    The analytical solution of the problem is given in Rosenthal : 
    Mathematical Theory of Heat Distribution During Welding and 
    Cutting.

    Contents :
    _________

    Input data :
    __________

	TAB1 : TABLE object, indexed by words, used to define the
                calculation options and parameters :

        Arguments :
	___________

            'PUISSANCE' : REEL : Electrical power of the arc (in W)    

            'RENDEMENT' : REEL : Arc yield : ratio between the power
               received by the plate and the electrical power of the 
               arc

            'DIFFUSVITE' : REEL : Thermal diffusivity (in m^2/s)

            'CONDUCTIVITE' : REEL : Thermal Conductivity (in W/Km2)

            'VITESSE' : REEL : Speed of welding (in m/s)

            'T0' : REEL : Ambiant temperature (in °C or in K)    

            'NTERMES' : ENTIER : Number of terms in the analytical
	       solution     

            'MAILLAGE' : MAILLAGE : Mesh of the plate 

            'EPAISSEUR' : REEL : Plate thickness (in m)     

            'LOCAL' : BOOLEEN : VRAI (true) if the plate is in a local
               coordinate system (the arc is at (0. 0. 0.))

            'INSTANT' : REEL : If 'LOCAL' is FAUX (false), moment
               which the temperature field has to be computed (the
               abscissa of the arc is then V*t) (in s)

            'TFUSION' : REEL : Fusion temperature (in °C or in K)

            'PRECISION' : REEL : Precision of the calculus of the
               melted area (in m)

            'NSURFACES' : ENTIER : Number of surfaces which the melted
               area has to be evaluated on 

            'SURFACE' : TABLE : indexed by integers
                    'SURFACE'.I : MAILLAGE : i-th surface which the 
                        melted area has to be evaluated on

            'GAUSS' : BOOLEEN : VRAI (true) if the heat source is
               gaussian
            'ECART-TYPE' : REEL : standart deviation of the gaussian
               (in m)

    Output data :
    _____________

	    CHPO1 : CHPOINT : Temperature field (in °C or in K)

            In the input table :

               'LARGEUR' : TABLE :
                    'LARGEUR'.I : REEL : melted area of the i-th 
                       surface (in m)

               'XBAIN' : TABLE :
                    'XBAIN'.I : REEL : abscissa at which the width
                       of the melted area is maximal on the i-th 
                       surface