Télécharger la plaquette Cast3M


fr en

Télécharger SMCHPOI.INC

Retour à la liste

Numérotation des lignes : 

  1. *            -INC SMCHPOI
  2. *
  3. *     OBJET CHPOINT  : REPRESENTE UN CHAMP DISCRETISE PAR POINT
  4. *
  5.       SEGMENT MCHPOI
  6.        CHARACTER*8  MTYPOI
  7.        CHARACTER*72 MOCHDE='SANS TITRE'
  8.        INTEGER      JATTRI(NAT)
  9.        INTEGER      IPCHP(NSOUPO),IFOPOI
  10.        INTEGER      MCPCNF=MCOORD
  11.       ENDSEGMENT
  12.       POINTEUR MCHPO1.MCHPOI,MCHPO2.MCHPOI,MCHPO3.MCHPOI,MCHPO4.MCHPOI
  13.  
  14.       SEGMENT MSOUPO
  15.        CHARACTER*(LOCHPO) NOCOMP(NC)
  16.        INTEGER            IGEOC,IPOVAL
  17.        INTEGER            NOHARM(NC)
  18.       ENDSEGMENT
  19.       POINTEUR MSOUP1.MSOUPO,MSOUP2.MSOUPO,MSOUP3.MSOUPO,
  20.      #         MSOUP4.MSOUPO,MSOUP5.MSOUPO
  21.  
  22.       SEGMENT MPOVAL
  23.        REAL*8       VPOCHA(N,NC)
  24.       ENDSEGMENT
  25.       POINTEUR MPOVA1.MPOVAL,MPOVA2.MPOVAL,MPOVA3.MPOVAL,
  26.      #         MPOVA4.MPOVAL,MPOVA5.MPOVAL,MPOVA6.MPOVAL
  27.  
  28. C     MSOUPO DECRIT UNE PARTITION DE LA GEOMETRIE
  29. C
  30. C     MTYPOI : TYPE DU CHPOINT
  31. C     MOCHDE : TITRE
  32. C     JATTRI : ATTRIBUT DE NATURE
  33. C              JATTRI(1) NATURE DIFFUSE OU DISCRETE DU CHAMP
  34. C                0: INDETERMINE  1: DIFFUS  2:DISCRET
  35. C              JATTRI(2) LIBRE POUR L'INSTANT
  36. C                0:               1:         2:
  37. C     IPCHP  : POINTEURS SUR LES SEGMENTS MSOUPO
  38. C     IFOPOI : CORRESPOND A L'OPTION IFOUR(VOIR CCOPTIO)
  39. C     MCPCNF : CONFIGURATION DE CREATION DU CHAMP
  40. C
  41. C     NOCOMP : NOMS DES COMPOSANTES DU CHAMP
  42. C     NOCONS : NOMS DES CONSTITUANTS ASSOCIES
  43. C     IGEOC  : POINTEUR SUR UN OBJET MELEME
  44. C     IPOVAL : POINTEUR SUR LE SEGMENT MPOVAL
  45. C     NOHARM : NUMERO DE L'HARMONIQUE CORRESPONDANT A LA COMPOSANTE
  46. C              NOCOMP ,SI IFOPOI=1
  47. C
  48. C     VPOCHA(I,J) : VALEUR DU CHAMP IEME POINT,JIEME COMPOSANTE
  49. C
  50. C   -END INCLUDE
  51.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales