Include source files

*            -INC SMCHPOI                                                       
*                                                                               
*     OBJET CHPOINT  : REPRESENTE UN CHAMP DISCRETISE PAR POINT                 
*                                                                               
      SEGMENT MCHPOI                                                            
       CHARACTER*8  MTYPOI                                                      
       CHARACTER*72 MOCHDE                                                      
       INTEGER      JATTRI(NAT)
       INTEGER      IPCHP(NSOUPO),IFOPOI                                        
      ENDSEGMENT                                                                
      POINTEUR MCHPO1.MCHPOI,MCHPO2.MCHPOI,MCHPO3.MCHPOI,MCHPO4.MCHPOI          
*                                                                               
      SEGMENT MSOUPO                                                            
       CHARACTER*4  NOCOMP(NC)
       CHARACTER*16 NOCONS(NC)
       INTEGER      IGEOC,IPOVAL
       INTEGER      NOHARM(NC)
      ENDSEGMENT                                                                
      POINTEUR MSOUP1.MSOUPO,MSOUP2.MSOUPO,MSOUP3.MSOUPO,                       
     #         MSOUP4.MSOUPO,MSOUP5.MSOUPO                                      
*                                                                               
      SEGMENT MPOVAL                                                            
       REAL*8       VPOCHA(N,NC)
      ENDSEGMENT                                                                
      POINTEUR MPOVA1.MPOVAL,MPOVA2.MPOVAL,MPOVA3.MPOVAL,                       
     #         MPOVA4.MPOVAL,MPOVA5.MPOVAL,MPOVA6.MPOVAL                        
*                                                                               
*     MSOUPO DECRIT UNE PARTITION DE LA GEOMETRIE                               
*                                                                               
*     MTYPOI : TYPE DU CHPOINT                                                  
*     MOCHDE : TITRE    
*     JATTRI : ATTRIBUT DE NATURE
*              JATTRI(1) NATURE DIFFUSE OU DISCRETE DU CHAMP
*                0: INDETERMINE  1: DIFFUS  2:DISCRET
*              JATTRI(2) LIBRE POUR L'INSTANT
*                0:               1:         2:                                                        
*     IPCHP  : POINTEURS SUR LES SEGMENTS MSOUPO                                
*     IFOPOI : CORRESPOND A L'OPTION IFOUR(VOIR CCOPTIO)                        
*     IGEOC  : POINTEUR SUR UN OBJET MELEME                                     
*     NOCOMP : NOMS DES COMPOSANTES DU CHAMP                                    
*     NOCONS : NOMS DES CONSTITUANTS ASSOCIES
*     NOHARM : NUMERO DE L'HARMONIQUE CORRESPONDANT A LA COMPOSANTE             
*              NOCOMP ,SI IFOPOI=1                                              
*     IPOVAL : POINTEUR SUR LE SEGMENT MPOVAL                                   
*     VPOCHA(I,J) : VALEUR DU CHAMP IEME POINT,JIEME COMPOSANTE                 
*                                                                               
*   -END INCLUDE