*     -INC SMCHAML
*
*     OBJET DE TYPE "CHAMELEM" : CHAMP PAR ELEMENT
*
      PARAMETER (NCONCH=24)
      SEGMENT,MCHELM
         CHARACTER*(L1) TITCHE='SANS TITRE'
         CHARACTER*(NCONCH)   CONCHE(N1)
         INTEGER IMACHE(N1),ICHAML(N1)
         INTEGER INFCHE(N1,N3),IFOCHE
         INTEGER MCLCNF=MAX(0,MCOORD)  
      ENDSEGMENT
      POINTEUR MCHEL1.MCHELM,MCHEL2.MCHELM,MCHEL3.MCHELM
      POINTEUR MCHEL4.MCHELM,MCHEL5.MCHELM,MCHEL6.MCHELM
*
      SEGMENT,MCHAML
         CHARACTER*(LOCOMP) NOMCHE(N2)
         CHARACTER*16 TYPCHE(N2)
         INTEGER IELVAL(N2)
      ENDSEGMENT
      POINTEUR MCHAM1.MCHAML,MCHAM2.MCHAML,MCHAM3.MCHAML
      POINTEUR MCHAM4.MCHAML,MCHAM5.MCHAML,MCHAM6.MCHAML
*
      SEGMENT,MELVAL
         REAL*8 VELCHE(N1PTEL,N1EL)
         INTEGER IELCHE(N2PTEL,N2EL)
      ENDSEGMENT
      POINTEUR MELVA1.MELVAL,MELVA2.MELVAL,MELVA3.MELVAL
      POINTEUR MELVA4.MELVAL,MELVA5.MELVAL,MELVA6.MELVAL
*
*     TITCHE   : TITRE DU CHAMELEM
*     CONCHE   : NOM DU CONSTITUANT
*     NOPHAS   : nom de la phase
*       la phase est maintenant rangée dans conche(17:24)
*     IFOCHE   : CORRESPOND A L'OPTION IFOUR ( CF CCOPTIO )
*     IMACHE   : POINTEURS SUR DES MAILLAGES ELEMENTAIRES
*     ICHAML   : POINTEURS SUR DES SEGMENTS "MCHAML"
*     MCLCNF   : CONFIGURATION DE CREATION DU CHAMP
*     INFCHE   : ENSEMBLE D'INFORMATIONS OU LES VALEURS PAR DEFAUT SONT 0
*     INFCHE(.,1)=0 POUR DES VALEURS INDEPENDANTES DU REPERE
*                =1 POUR DES VALEURS DEFINIES DANS LES REPERES LOCAUX
*                =2 POUR DES VALEURS DEFINIES DANS LE REPERE GLOBAL
*     INFCHE(.,2)= LIBRE
*                  (  ANCIENNEMENT LE NUMERO DE LA COUCHE )
*     INFCHE(.,3)= NUMERO DE L'HARMONIQUE DE FOURIER
*     INFCHE(.,4)=0 POUR DES VALEURS DEFINIES AUX NOEUDS
*                =POINTEUR SUR UN SMINTE POUR DES VALEURS DEFINIES AILLEU
*     INFCHE(.,5)=0 POUR DES CHAMPS DE DEFORMATIONS ET CONTRAINTES USUELS
*                =1 POUR DES CHAMPS DE DEFORMATIONS ET CONTRAINTES
*                   EN FORMULATION "MASSIF" POUR DES ELEMENTS DE COQUE OU
*                   DE POUTRE OU DE TUYAU
*     INFCHE(.,6):  LE SMINTE POINTE SUR UN SEGMENT D'INTEGRATION :
*                =1 AUX NOEUDS
*                =2 AU CENTRE DE GRAVITE
*                =3 AUX POINTS DE GAUSS POUR LA RIGIDITE
*                =4 AUX POINTS DE GAUSS POUR LA MASSE
*                =5 AUX POINTS DE GAUSS POUR LES CONTRAINTES
*                =6 AUX POINTS DE GAUSS POUR LA  TEMPERATURE
*
*     NOMCHE   : NOMS DES COMPOSANTES DU CHAMELEM
*     TYPCHE   : TYPES DES COMPOSANTES DU CHAMELEM:
*                - TYPCHE(..)='REAL*8' POUR DES COMPOSANTES REELLES,
*                - TYPCHE(..)='POINTEUR M...' POUR DES COMPOSANTES
*                  NON SCALAIRES, DECRITES PAR UN SEGMENT DE NOM "M..."
*     IELVAL   : POINTEURS SUR DES SEGMENTS "MELVAL"
*
*     VELCHE(N1PTEL,N1EL) : VALEUR D'UNE COMPOSANTE REELLE POUR LE
*                           "N1PTEL"-EME NOEUD DU "N1EL"-EME ELEMENT.
*     IELCHE(N2PTEL,N2EL) : POINTEUR SUR UN SEGMENT REPRESENTANT UNE
*                           COMPOSANTE NON SCALAIRE POUR LE
*                           "N2PTEL"-EME NOEUD DU "N2EL"-EME ELEMENT.
*
*     REMARQUES:
*
*     - SEUL L'UN DES TABLEAUX "VELCHE" ET "IELCHE" EST UN TABLEAU NON
*       VIDE.
*
*     - N.PTEL=N.EL=1  ("."= 1 OU 2)  IMPLIQUE CHAMP UNIFORME DANS LE
*       MAILLAGE.
*
*     - N.PTEL=1  ("."= 1 OU 2)  IMPLIQUE CHAMP CONSTANT PAR ELEMENT.
*
*   ATTENTION :  PAR ZONE ELEMENTAIRE , ON ENTEND UNE ZONE POUR
*                LAQUELLE ON A LES MEMES IMACHE, CONCHE, ET CERTAINS
*                INFCHE