C ELNUMS    SOURCE    CHAT      05/01/12    23:36:06     5004           
C
C
      SUBROUTINE ELNUMS(ICODE,INUMS)
C     **********************************************************************
C     OBJET ELTYPE : RENVOI LE NUMERO STANDARD D'UN ELEMENT
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER ICODE,INUMS
C
      INTEGER   MAXEL
      PARAMETER   (MAXEL = 21)
      INTEGER ISCODE
      COMMON /ELCODE/ ISCODE(MAXEL)
      INTEGER I
C
      INUMS = -1
      DO 10 I=1,MAXEL
        IF( ICODE.EQ.ISCODE(I) )THEN
          INUMS = I
          GOTO 9999
        ENDIF
   10 CONTINUE
C
 9999 END