Esope source files

   1 : C ELTYPE    SOURCE    CHAT      05/01/12    23:38:29     5004           
   2 : C
   3 :       SUBROUTINE ELTYPE(ITYPE,IORDRE,IDE,NBNO,ISENS,ICODE)
   4 : C     **********************************************************************
   5 : C     OBJET ELTYPE : RENVOI DES INFO SUR LE TYPE D'UN ELEMENT
   6 : C     SI ISENS = 1
   7 : C       EN ENTREE :
   8 : C         ITYPE   : TYPE DE L'ELEMENT (1..8) (SEGMENT,TRIANGLE...)
   9 : C         IORDRE  : ORDRE DE L'ELEMENT (1,2) (LINEAIRE,QUADRATIQUE...)
  10 : C       EN SORTIE :
  11 : C         ICODE   : LE CODE DE L'ELEMENT
  12 : C         IDE     : DIMENSION DE L'ELEMENT
  13 : C         NBNO    : NOMBRE TOTAL DE NOEUDS DE L'ELEMENT
  14 : C     SI ISENS = -1
  15 : C       EN ENTREE :
  16 : C         ICODE   : LE CODE DE L'ELEMENT
  17 : C       EN SORTIE :
  18 : C         ITYPE   : TYPE DE L'ELEMENT (1..8) (SEGMENT,TRIANGLE...)
  19 : C         IORDRE  : ORDRE DE L'ELEMENT (1,2) (LINEAIRE,QUADRATIQUE...)
  20 : C         IDE     : DIMENSION DE L'ELEMENT
  21 : C         NBNO    : NOMBRE TOTAL DE NOEUDS DE L'ELEMENT
  22 : C     **********************************************************************
  23 :       IMPLICIT INTEGER(I-N)
  24 :       INTEGER ITYPE,IORDRE,ISENS,ICODE,IDE,NBNO
  25 : C
  26 :       INTEGER   MAXEL,MAXTYP,MAXORD
  27 :       PARAMETER   (MAXEL = 21, MAXTYP = 8, MAXORD = 2)
  28 :       INTEGER ISTYO,ISTY,ISTO,ISNBNO,ISIDE,ISCODE
  29 :       COMMON /ELCODE/ ISCODE(MAXEL)
  30 :       COMMON /ELTYPO/ ISTYO(MAXTYP,MAXORD)
  31 :       COMMON /ELTYPC/ ISTY(MAXEL)
  32 :       COMMON /ELORDR/ ISTO(MAXEL)
  33 :       COMMON /ELNBNO/ ISNBNO(MAXEL)
  34 :       COMMON /ELIDE/  ISIDE(MAXEL)
  35 :       INTEGER INUMS
  36 : C
  37 :       IF(ISENS.EQ.1)THEN
  38 :         IF(( IORDRE.LT.1 ).OR.( IORDRE.GT.MAXORD ))THEN
  38 :           CALL ESERRO(1,-1,'ELTYPE ',' ORDRE DES ELEMENTS')
  39 :           ICODE = -1
  40 :           GOTO 9999
  41 :         ENDIF
  42 :         IF(( ITYPE.LT.1 ).OR.( ITYPE.GT.MAXTYP ))THEN
  42 :           CALL ESERRO(1,-1,'ELTYPE ',' TYPE DES ELEMENTS')
  43 :           ICODE = -1
  44 :           GOTO 9999
  45 :         ENDIF
  46 :         INUMS = ISTYO(ITYPE,IORDRE)
  47 :         ICODE = ISCODE(INUMS)
  48 :         IDE   = ISIDE(INUMS)
  49 :         NBNO  = ISNBNO(INUMS)
  50 : C
  51 :       ELSE
  51 :         CALL ELNUMS(ICODE,INUMS)
  52 :         IF(( INUMS.LT.1 ).OR.( INUMS.GT.MAXEL ))THEN
  52 :           CALL ESERRO(1,-1,'ELTYPE ',' CODE DES ELEMENTS')
  53 :           ITYPE = -1
  54 :           IORDRE = -1
  55 :           GOTO 9999
  56 :         ENDIF
  57 :         ITYPE  = ISTY(INUMS)
  58 :         IORDRE = ISTO(INUMS)
  59 :         IDE    = ISIDE(INUMS)
  60 :         NBNO   = ISNBNO(INUMS)
  61 :       ENDIF      
  62 : C 
  63 :  9999 END
  64 :  
  65 :