C NUMHYB    SOURCE    CHAT      05/01/13    02:03:12     5004           
      FUNCTION NUMHYB(NUMGEO)
C***********************************************************************        
C                                                                               
C                             N U M H Y B
C                             -----------                                       
C                                                                               
C FONCTION:                                                                     
C ---------                                                                     
C                                                                               
C     DONNER LE NUMERO DE L'ELEMENT HYBRIDE ASSOCIE A UN ELEMENT
C     GEOMETRIQUE DONNE
C          ( RECIPROQUE DE NUMGEO POUR LES ELEMENTS HYBRIDES)
C                                                                               
C PARAMETRES:                                                                   
C -----------                                                                   
C                                                                               
C     NUMHYB  (S)  NUMERO DE L'ELEMENT HYBRIDE
C     NUMGEO  (E)  NUMERO DE L'ELEMENT GEOMETRIQUE ASSOCIE
C                                                                               
      IMPLICIT INTEGER(I-N)
      PARAMETER ( LNUMH=5   )
      DIMENSION NUMGE(LNUMH),NUMH(LNUMH)
C                                                                               
C AUTEUR, DATE DE CREATION:                                                     
C -------------------------                                                     
C                                                                               
C     F AURIOL     JUILLET 94
C                                                                               
C LANGAGE:                                                                      
C --------                                                                      
C                                                                               
C     FORTRAN77                                                                 
C                                                                               
C***********************************************************************        
C                                                                               
C                 HYT3 HYQ4 HYT4 HYP6 HYC8
      DATA NUMGE/  4 ,   8,  23,  16,  14/
      DATA NUMH /  99, 100, 101, 102, 103/
      DO 10 I=1,LNUMH
         IF(NUMGEO.EQ.NUMGE(I))THEN
             NUMHYB=NUMH(I)
             RETURN
         ENDIF
   10 CONTINUE
C                                                                               
      END