Esope source files

   1 : C STTYPE    SOURCE    CHAT      06/03/29    21:35:04     5360           
   2 : C
   3 : C
   4 :       SUBROUTINE STTYPE(IDE,NBNE,NBCE,ISENS,ITYPE,iarr)
   5 : C     *****************************************************************
   6 : C     OBJET STTYPE : RENVOI DES INFO SUR UN TYPE D'ELEMENT
   7 : C
   8 : C     SI ISENS = 1
   9 : C       EN ENTREE :
  10 : C          IDE    :
  11 : C          NBNE   :
  12 : C       EN SORTIE :
  13 : C          NBCE   :
  14 : C          ITYPE  :
  15 : C     SI ISENS = -1
  16 : C       EN ENTREE :
  17 : C          ITYPE  :
  18 : C       EN SORTIE :
  19 : C          IDE    :
  20 : C          NBNE   :
  21 : C          NBCE   :
  22 : C     CONVENTION  :
  23 : C           TYPE  : 1 SOMMET
  24 : C                   2 SEGMENT
  25 : C                   3 TRIANGLE
  26 : C                   4 QUADRANGLE
  27 : C                   5 TETRAEDRE
  28 : C                   6 PRISME
  29 : C                   7 PYRAMIDE
  30 : C                   8 HEXAEDRE
  31 : C     *****************************************************************
  32 :       IMPLICIT INTEGER(I-N)
  33 :       INTEGER IDE,NBNE,NBCE,ISENS,ITYPE,iarr
  34 : C
  35 :        INTEGER   NBTYP
  36 :        PARAMETER (NBTYP = 8)
  37 :        INTEGER   STNBNE(NBTYP),STNBCE(NBTYP),STIDE(NBTYP)
  38 :        DATA  STNBNE /1,2,3,4,4,6,5,8 /
  39 :        DATA  STNBCE /0,2,3,4,4,5,5,6 /
  40 :        DATA  STIDE  /0,1,2,2,3,3,3,3 /
  41 : C
  42 :        IF(ISENS.EQ.1)THEN
  43 : C
  44 :       GOTO( 12,13,14 ) IDE
  45 :       IF(IDE.EQ.0)THEN
  46 :         ITYPE = 1
  47 :         NBCE  = 0
  48 :       ELSE
  49 :         iarr = -1
  50 :         GOTO 9999
  51 :       ENDIF
  52 : C
  53 : C       --- CAS 1D ---        
  54 :    12   NBCE = 2
  55 :         IF(NBNE.EQ.2)ITYPE = 2
  56 :         GOTO 9999
  57 : C
  58 : C       --- CAS 2D ---
  59 :    13   IF(NBNE.EQ.3)THEN
  60 :           NBCE  = 3
  61 :           ITYPE = 3
  62 :           GOTO 9999
  63 :         ENDIF
  64 :         IF(NBNE.EQ.4)THEN
  65 :           NBCE  = 4
  66 :           ITYPE = 4
  67 :           GOTO 9999
  68 :         ENDIF
  69 : C
  70 : C       --- CAS 3D ---
  71 :    14   IF( NBNE.EQ.4  )THEN
  72 :           NBCE  = 4
  73 :           ITYPE = 5
  74 :           GOTO 9999
  75 :         ENDIF
  76 :         IF( NBNE.EQ.5  )THEN
  77 :           NBCE  = 5
  78 :           ITYPE = 7
  79 :           GOTO 9999
  80 :         ENDIF
  81 :         IF( NBNE.EQ.6  )THEN
  82 :           NBCE  = 5
  83 :           ITYPE = 6
  84 :           GOTO 9999
  85 :         ENDIF
  86 :         IF( NBNE.EQ.8  )THEN
  87 :           NBCE  = 6
  88 :           ITYPE = 8
  89 :           GOTO 9999
  90 :         ENDIF
  91 : C
  92 : C     ----------------------------------------------------
  93 : C      
  94 :       ELSE
  95 :       IF((ITYPE.GT.NBTYP).OR.(ITYPE.LT.1))THEN
  96 :         iarr = -1
  97 :         GOTO 9999
  98 :       ENDIF
  99 :       NBCE  = STNBCE(ITYPE)
 100 :       NBNE  = STNBNE(ITYPE)
 101 :       IDE   = STIDE(ITYPE)
 102 :       ENDIF      
 103 : C
 104 :  9999 END
 105 :  
 106 :  
 107 :