Esope source files

   1 : C ELNUMS    SOURCE    CHAT      05/01/12    23:36:06     5004           
   2 : C
   3 : C
   4 :       SUBROUTINE ELNUMS(ICODE,INUMS)
   5 : C     **********************************************************************
   6 : C     OBJET ELTYPE : RENVOI LE NUMERO STANDARD D'UN ELEMENT
   7 : C     **********************************************************************
   8 :       IMPLICIT INTEGER(I-N)
   9 :       INTEGER ICODE,INUMS
  10 : C
  11 :       INTEGER   MAXEL
  12 :       PARAMETER   (MAXEL = 21)
  13 :       INTEGER ISCODE
  14 :       COMMON /ELCODE/ ISCODE(MAXEL)
  15 :       INTEGER I
  16 : C
  17 :       INUMS = -1
  18 :       DO 10 I=1,MAXEL
  19 :         IF( ICODE.EQ.ISCODE(I) )THEN
  20 :           INUMS = I
  21 :           GOTO 9999
  22 :         ENDIF
  23 :    10 CONTINUE
  24 : C
  25 :  9999 END
  26 :  
  27 :