Télécharger la plaquette Cast3M


fr en

Télécharger elnums.eso

Retour à la liste

Numérotation des lignes : 

elnums

  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.  
  28.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales