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'

    Objet :
    _______

    Cette procédure calcule le champ de température résultant du
    déplacement d'un arc de soudure sur une plaque infinie. L'arc est 
    soit ponctuel, soit gaussien et se déplace selon l'axe X.
    La largeur de bain (largeur de l'isotherme à TFUSION) est calculée
    pour toutes les surfaces données dans la table.
    La solution analytique du problème est tirée de Rosenthal : 
    Mathematical Theory of Heat Distribution During Welding and 
    Cutting. 

    Commentaire :
    _____________

    En entrée :
    __________

	TAB1 : Objet de type TABLE, indicé par des mots, servant à
		définir les options de calcul :
 
        Arguments :
	___________

            'PUISSANCE' : REEL : Puissance de l'arc (en W)        

            'RENDEMENT' : REEL : Rendement de l'arc : Rapport de  
               la puissance recue par la pièce et de la puissance 
               de l'arc                                           

            'DIFFUSVITE' : REEL : Diffusivité thermique du matériau 
               (en m2/s)                                 

            'CONDUCTIVITE' : REEL : Conductivité thermique du     
               matériau (en W/Km2)                                

            'VITESSE' : REEL : Vitesse de déplacement de l'arc (en m/s)

            'T0' : REEL : Température ambiante (en °C ou en K)    

            'NTERMES' : ENTIER : Nombre de termes de la somme     

            'MAILLAGE' : MAILLAGE : Maillage support du champ de  
               température                                        

            'EPAISSEUR' : REEL : Epaisseur de la pièce (en m)     

            'LOCAL' : BOOLEEN : VRAI si la pièce est décrite dans 
               le repère local à l'arc                            

            'INSTANT' : REEL : Si 'LOCAL' est FAUX, instant       
               auquel il faut calculer le champ de température    
               (l'abscisse de l'arc est alors V*t) (en s)         

            'TFUSION' : REEL : Température de fusion (en °C ou en K)

            'PRECISION' : REEL : Précision du calcul de la largeur de 
               bain (en m)                             

            'NSURFACES' : ENTIER : Nombre de surfaces sur lesquelles 
	       la largeur de bain doit être calculée    

            'SURFACE' : TABLE : indicé par des entiers
                    'SURFACE'.I : MAILLAGE : i-ème surface sur    
                       laquelle la largeur de bain doit être      
                       calculée                                   

            'GAUSS' : BOOLEEN : VRAI si la source est gaussienne  

            'ECART-TYPE' : REEL : Ecart-type de la gaussienne (en m)


    En sortie :
    __________

	    CHPO1 : CHPOINT : Champ de température (en °C ou en K)

            Dans la table en entrée :

               'LARGEUR' : TABLE :
                    'LARGEUR'.I : REEL : Largeur de bain calculée 
                        sur la i-ème surface

               'XBAIN' : TABLE :
                    'XBAIN'.I : REEL : Abscisse à laquelle la
                        largeur de bain est maximale pour la
                        i-ème surface