Esope source files

   1 : C NUMHYB    SOURCE    CHAT      05/01/13    02:03:12     5004           
   2 :       FUNCTION NUMHYB(NUMGEO)
   3 : C***********************************************************************        
   4 : C                                                                               
   5 : C                             N U M H Y B
   6 : C                             -----------                                       
   7 : C                                                                               
   8 : C FONCTION:                                                                     
   9 : C ---------                                                                     
  10 : C                                                                               
  11 : C     DONNER LE NUMERO DE L'ELEMENT HYBRIDE ASSOCIE A UN ELEMENT
  12 : C     GEOMETRIQUE DONNE
  13 : C          ( RECIPROQUE DE NUMGEO POUR LES ELEMENTS HYBRIDES)
  14 : C                                                                               
  15 : C PARAMETRES:                                                                   
  16 : C -----------                                                                   
  17 : C                                                                               
  18 : C     NUMHYB  (S)  NUMERO DE L'ELEMENT HYBRIDE
  19 : C     NUMGEO  (E)  NUMERO DE L'ELEMENT GEOMETRIQUE ASSOCIE
  20 : C                                                                               
  21 :       IMPLICIT INTEGER(I-N)
  22 :       PARAMETER ( LNUMH=5   )
  23 :       DIMENSION NUMGE(LNUMH),NUMH(LNUMH)
  24 : C                                                                               
  25 : C AUTEUR, DATE DE CREATION:                                                     
  26 : C -------------------------                                                     
  27 : C                                                                               
  28 : C     F AURIOL     JUILLET 94
  29 : C                                                                               
  30 : C LANGAGE:                                                                      
  31 : C --------                                                                      
  32 : C                                                                               
  33 : C     FORTRAN77                                                                 
  34 : C                                                                               
  35 : C***********************************************************************        
  36 : C                                                                               
  37 : C                 HYT3 HYQ4 HYT4 HYP6 HYC8
  38 :       DATA NUMGE/  4 ,   8,  23,  16,  14/
  39 :       DATA NUMH /  99, 100, 101, 102, 103/
  40 :       DO 10 I=1,LNUMH
  41 :          IF(NUMGEO.EQ.NUMGE(I))THEN
  42 :              NUMHYB=NUMH(I)
  43 :              RETURN
  44 :          ENDIF
  45 :    10 CONTINUE
  46 : C                                                                               
  47 :       END                                                                       
  48 :  
  49 :