Télécharger SMCHAML.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMCHAML
  2. *
  3. * OBJET DE TYPE "CHAMELEM" : CHAMP PAR ELEMENT
  4. *
  5. PARAMETER (NCONCH=24)
  6. SEGMENT,MCHELM
  7. CHARACTER*(L1) TITCHE
  8. CHARACTER*(NCONCH) CONCHE(N1)
  9. INTEGER IMACHE(N1),ICHAML(N1)
  10. INTEGER INFCHE(N1,N3),IFOCHE
  11. ENDSEGMENT
  12. POINTEUR MCHEL1.MCHELM,MCHEL2.MCHELM,MCHEL3.MCHELM
  13. POINTEUR MCHEL4.MCHELM,MCHEL5.MCHELM,MCHEL6.MCHELM
  14. *
  15. SEGMENT,MCHAML
  16. CHARACTER*(LOCOMP) NOMCHE(N2)
  17. CHARACTER*16 TYPCHE(N2)
  18. INTEGER IELVAL(N2)
  19. ENDSEGMENT
  20. POINTEUR MCHAM1.MCHAML,MCHAM2.MCHAML,MCHAM3.MCHAML
  21. POINTEUR MCHAM4.MCHAML,MCHAM5.MCHAML,MCHAM6.MCHAML
  22. *
  23. SEGMENT,MELVAL
  24. REAL*8 VELCHE(N1PTEL,N1EL)
  25. INTEGER IELCHE(N2PTEL,N2EL)
  26. ENDSEGMENT
  27. POINTEUR MELVA1.MELVAL,MELVA2.MELVAL,MELVA3.MELVAL
  28. POINTEUR MELVA4.MELVAL,MELVA5.MELVAL,MELVA6.MELVAL
  29. *
  30. * TITCHE : TITRE DU CHAMELEM
  31. * CONCHE : NOM DU CONSTITUANT
  32. * NOPHAS : nom de la phase
  33. * la phase est maintenant rangée dans conche(17:24)
  34. * IFOCHE : CORRESPOND A L'OPTION IFOUR ( CF CCOPTIO )
  35. * IMACHE : POINTEURS SUR DES MAILLAGES ELEMENTAIRES
  36. * ICHAML : POINTEURS SUR DES SEGMENTS "MCHAML"
  37. * INFCHE : ENSEMBLE D'INFORMATIONS OU LES VALEURS PAR DEFAUT SONT 0
  38. * INFCHE(.,1)=0 POUR DES VALEURS INDEPENDANTES DU REPERE
  39. * =1 POUR DES VALEURS DEFINIES DANS LES REPERES LOCAUX
  40. * =2 POUR DES VALEURS DEFINIES DANS LE REPERE GLOBAL
  41. * INFCHE(.,2)= LIBRE
  42. * ( ANCIENNEMENT LE NUMERO DE LA COUCHE )
  43. * INFCHE(.,3)= NUMERO DE L'HARMONIQUE DE FOURIER
  44. * INFCHE(.,4)=0 POUR DES VALEURS DEFINIES AUX NOEUDS
  45. * =POINTEUR SUR UN SMINTE POUR DES VALEURS DEFINIES AILLEU
  46. * INFCHE(.,5)=0 POUR DES CHAMPS DE DEFORMATIONS ET CONTRAINTES USUELS
  47. * =1 POUR DES CHAMPS DE DEFORMATIONS ET CONTRAINTES
  48. * EN FORMULATION "MASSIF" POUR DES ELEMENTS DE COQUE OU
  49. * DE POUTRE OU DE TUYAU
  50. * INFCHE(.,6): LE SMINTE POINTE SUR UN SEGMENT D'INTEGRATION :
  51. * =1 AUX NOEUDS
  52. * =2 AU CENTRE DE GRAVITE
  53. * =3 AUX POINTS DE GAUSS POUR LA RIGIDITE
  54. * =4 AUX POINTS DE GAUSS POUR LA MASSE
  55. * =5 AUX POINTS DE GAUSS POUR LES CONTRAINTES
  56. * =6 AUX POINTS DE GAUSS POUR LA TEMPERATURE
  57. *
  58. * NOMCHE : NOMS DES COMPOSANTES DU CHAMELEM
  59. * TYPCHE : TYPES DES COMPOSANTES DU CHAMELEM:
  60. * - TYPCHE(..)='REAL*8' POUR DES COMPOSANTES REELLES,
  61. * - TYPCHE(..)='POINTEUR M...' POUR DES COMPOSANTES
  62. * NON SCALAIRES, DECRITES PAR UN SEGMENT DE NOM "M..."
  63. * IELVAL : POINTEURS SUR DES SEGMENTS "MELVAL"
  64. *
  65. * VELCHE(N1PTEL,N1EL) : VALEUR D'UNE COMPOSANTE REELLE POUR LE
  66. * "N1PTEL"-EME NOEUD DU "N1EL"-EME ELEMENT.
  67. * IELCHE(N2PTEL,N2EL) : POINTEUR SUR UN SEGMENT REPRESENTANT UNE
  68. * COMPOSANTE NON SCALAIRE POUR LE
  69. * "N2PTEL"-EME NOEUD DU "N2EL"-EME ELEMENT.
  70. *
  71. * REMARQUES:
  72. *
  73. * - SEUL L'UN DES TABLEAUX "VELCHE" ET "IELCHE" EST UN TABLEAU NON
  74. * VIDE.
  75. *
  76. * - N.PTEL=N.EL=1 ("."= 1 OU 2) IMPLIQUE CHAMP UNIFORME DANS LE
  77. * MAILLAGE.
  78. *
  79. * - N.PTEL=1 ("."= 1 OU 2) IMPLIQUE CHAMP CONSTANT PAR ELEMENT.
  80. *
  81. * ATTENTION : PAR ZONE ELEMENTAIRE , ON ENTEND UNE ZONE POUR
  82. * LAQUELLE ON A LES MEMES IMACHE, CONCHE, ET CERTAINS
  83. * INFCHE
  84.  

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