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

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