Télécharger el2000.eso

Retour à la liste

Numérotation des lignes :

  1. C EL2000 SOURCE CHAT 05/01/12 23:28:50 5004
  2. C
  3. C OBJET FCUB20 : RENVOI LES INFO SUR LE CUB20
  4. C EN ENTREE :
  5. C ITYPE : TYPE DES INFORMATION SOUHAITEES
  6. C
  7. C 1 : LES INDICES DES NOEUDS MILIEU DES SOMMETS (D'UNE ARETE)
  8. C INDONN(1,2) = INDICE DES SOMMETS
  9. C IRESUL(1,NBRESU) = INDICE DES NOEUDS MILIEU
  10. C
  11. C 2 : LES INDICES DES SOMMETS D'UNE ARETE
  12. C INDONN(1) = REFERENCE DE L'ARETE
  13. C IRESUL(1,2) = INDICE DES NOEUDS MILIEU
  14. C
  15. C 3 : LES INDICES DES NOEUDS MILIEU D'UNE ARETE
  16. C INDONN(1) = REFERENCE DE L'ARETE
  17. C IRESUL(1,NBRESU) = INDICE DES NOEUDS MILIEU
  18. C
  19. C 4 : LES INDICES DES NOEUDS MILIEU DES SOMMETS (D'UNE FACE)
  20. C INDONN(1,N) = INDICE DES SOMMETS
  21. C IRESUL(1,NBRESU) = INDICE DES NOEUDS MILIEU
  22. C
  23. C 5 : LES INDICES DES SOMMETS D'UNE FACE
  24. C INDONN(1) = REFERENCE DE LA FACE
  25. C IRESUL(1,NBRESU) = INDICE DES SOMMETS
  26. C
  27. C 6 : LES INDICES DES NOEUDS MILIEU D'UNE FACE
  28. C INDONN(1) = REFERENCE DE LA FACE
  29. C IRESUL(1,NBRESU) = INDICE DES NOEUDS MILIEU
  30. C
  31. C 7 : LES INDICES DES NOEUDS DU VOLUME
  32. C INDONN() = VIDE
  33. C IRESUL(1,NBRESU) = INDICE DES NOEUDS
  34. C
  35. C 8 : LES INDICES DES SOMMETS DU VOLUME
  36. C INDONN(1) = VIDE
  37. C IRESUL(1,NBRESU) = INDICE DES SOMMETS
  38. C
  39. C 9 : LES INDICES DE TOUS LES NOEUDS
  40. C INDONN(1) = VIDE
  41. C IRESUL(1,NBRESU) = INDICE DES NOEUDS
  42. C
  43. C **********************************************************************
  44. C
  45. C
  46. SUBROUTINE EL2000(ISCOD,ISNOM,NBCOD)
  47. C **********************************************************************
  48. C OBJET ELVPFC : INITIALISE LES CONSTANTES DEPENDANT DU CODE CASTEM 2000
  49. C
  50. C **********************************************************************
  51. IMPLICIT INTEGER(I-N)
  52. INTEGER ISCOD(*),NBCOD
  53. CHARACTER*5 ISNOM(*)
  54. C
  55. INTEGER ICODE,NBCODE
  56. C
  57. C ---- POUR VIPLEF ----
  58. C
  59. INTEGER NBCODL,NBCARL
  60. PARAMETER (NBCODL = 21, NBCARL = 5)
  61. INTEGER ISCODL(NBCODL)
  62. CHARACTER*5 ISNOML(NBCODL)
  63. C
  64. C ---- CODE DE L'ELEMENT -----------------------------------------
  65. DATA ISCODL /-1,-1,-1,4,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,
  66. > 14,-1,-1,-1,15,
  67. > -1 /
  68. C
  69. C ---- NOM DE L'ELEMENT -----------------------------------------
  70. DATA ISNOML /'---- ','---- ','---- ','---- ','QUA4 ','---- ',
  71. > 'QUA8 ','---- ','---- ','---- ','---- ','---- ','---- ',
  72. > '---- ','---- ','CUB8 ','---- ','---- ','---- ','CU20 ',
  73. > '---- ' /
  74. C
  75. NBCODE = MAX(NBCODL,NBCOD)
  76. DO 10 ICODE=1,NBCODE
  77. ISCOD(ICODE) = ISCODL(ICODE)
  78. ISNOM(ICODE) = ISNOML(ICODE)
  79. 10 CONTINUE
  80. 9999 END
  81.  
  82.  
  83.  

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