Télécharger crelem.eso

Retour à la liste

Numérotation des lignes :

  1. C CRELEM SOURCE BP208322 16/11/18 21:16:08 9177
  2. C CONVERTIT UN POINT EN L'ELEMENT CONTENANT CE POINT
  3. C
  4. SUBROUTINE CRELEM(IRANG)
  5. IMPLICIT INTEGER(I-N)
  6. -INC SMELEME
  7. -INC CCGEOME
  8. NBNN=1
  9. NBSOUS=0
  10. NBREF=0
  11. NBELEM=1
  12. SEGINI MELEME
  13. ITYPEL=1
  14. NUM(1,1)=IRANG
  15. ICOLOR(1)=IDCOUL
  16. IRANG=MELEME
  17. RETURN
  18. END
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  

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