Télécharger la plaquette Cast3M


fr en

Télécharger el2000.eso

Retour à la liste

Numérotation des lignes : 

el2000

  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