*      -INC TMTRAV                                                              
*                                                                               
*SEGMENT DE TRAVAIL POUR CREER UN CHAMP PAR POINT                               
*                                                                               
      SEGMENT MTRAV                                                             
       CHARACTER*(LOCHPO)    INCO(NNIN)
       REAL*8         BB(NNIN,NNNOE)                                            
       INTEGER        IBIN(NNIN,NNNOE),IGEO(NNNOE),NHAR(NNIN)                   
      ENDSEGMENT                                                                
*                                                                               
* ********   INCO(NNIN) CONTIENT LE NOMS DES NNIN INCONNUES DIFFERENTES.        
*                                                                               
* ********   BB(I,J) EST LA VALEUR DE LA IEME INCONNUE DU CHAMP POUR            
* ********   LE JEME NOEUD DU TABLEAU IGEO.                                     
*                                                                               
* ********   IBIN(I,J)=1 OU 0. 1 INDIQUE QUE LA I EME INCONNUE DU CHAMP         
* ********   EXISTE POUR LE J EME NOEUD DU TABLEAU IGEO.                        
*                                                                               
* ********   IGEO(I) EST LE NUMERO A METTRE DANS UN OBJET MELEME POUR           
* ********   REFERENCER LE IEME NOEUD                                           
*                                                                               
* ********   NHAR(I)  EST LE NUMERO D'HARMONIQUE SI CALCUL AXI OU               
* ********   SIGNIFIE CONTRAINTE PLANE,DEFORMATION PLANE OU DEF PLAN GEN        
*