Esope source files

Download el2000.eso
   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 :