*          -INC SMVECTE                                                         
*                                                                               
*     OBJET DE TYPE VECTEUR                                                     
*                                                                               
      SEGMENT MVECTE                                                            
       CHARACTER*(LOCHPO) NOCOVE(NVEC,ID)
       INTEGER IGEOV(NVEC),NOCOUL(NVEC),ICHPO(NVEC)                             
       REAL*8  AMPF(NVEC)                                                       
      ENDSEGMENT                                                                
       POINTEUR MVECT1.MVECTE,MVECT2.MVECTE,MVECT3.MVECT                        
*                                                                               
*     IGEOV :  POINTEUR SUR OBJET MELEME ( NON UTILISE)                         
*     AMPF  :  AMPLIFICATION                                                    
*     NOCOUL:  COULEUR                                                          
*     ICHPO :  TABLEAU DES CHAMPOINTS                                           
*     NOCOVE:  NOM DES COMPOSANTES                                              
*