Télécharger elnums.eso

Retour à la liste

Numérotation des lignes :

  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