*            -INC SMCHPOI
*
*     OBJET CHPOINT  : REPRESENTE UN CHAMP DISCRETISE PAR POINT
*
      SEGMENT MCHPOI
       CHARACTER*8  MTYPOI
       CHARACTER*72 MOCHDE='SANS TITRE'
       INTEGER      JATTRI(NAT)
       INTEGER      IPCHP(NSOUPO),IFOPOI
       INTEGER      MCPCNF=MCOORD
      ENDSEGMENT
      POINTEUR MCHPO1.MCHPOI,MCHPO2.MCHPOI,MCHPO3.MCHPOI,MCHPO4.MCHPOI

      SEGMENT MSOUPO
       CHARACTER*(LOCHPO) NOCOMP(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

C     MSOUPO DECRIT UNE PARTITION DE LA GEOMETRIE
C
C     MTYPOI : TYPE DU CHPOINT
C     MOCHDE : TITRE
C     JATTRI : ATTRIBUT DE NATURE
C              JATTRI(1) NATURE DIFFUSE OU DISCRETE DU CHAMP
C                0: INDETERMINE  1: DIFFUS  2:DISCRET
C              JATTRI(2) LIBRE POUR L'INSTANT
C                0:               1:         2:
C     IPCHP  : POINTEURS SUR LES SEGMENTS MSOUPO
C     IFOPOI : CORRESPOND A L'OPTION IFOUR(VOIR CCOPTIO)
C     MCPCNF : CONFIGURATION DE CREATION DU CHAMP
C
C     NOCOMP : NOMS DES COMPOSANTES DU CHAMP
C     NOCONS : NOMS DES CONSTITUANTS ASSOCIES
C     IGEOC  : POINTEUR SUR UN OBJET MELEME
C     IPOVAL : POINTEUR SUR LE SEGMENT MPOVAL
C     NOHARM : NUMERO DE L'HARMONIQUE CORRESPONDANT A LA COMPOSANTE
C              NOCOMP ,SI IFOPOI=1
C
C     VPOCHA(I,J) : VALEUR DU CHAMP IEME POINT,JIEME COMPOSANTE
C
C   -END INCLUDE