Télécharger dimen8.eso

Retour à la liste

Numérotation des lignes :

  1. C DIMEN8 SOURCE CHAT 05/01/12 22:50:51 5004
  2. C DIMEN8 SOURCE PETI 88/02/25 21:08:22
  3. SUBROUTINE DIMEN8 (IPOINT,LDIM)
  4. C
  5. C DIMENSION D UN OBJET EVOLUTIO
  6. C C EST LE NOMBRE TOTAL DE COURBES DANS L'OBJET EVOLUTIO
  7. C
  8. C PAUROBALLY 14/12/88
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. -INC SMEVOLL
  12. C
  13. MEVOLL=IPOINT
  14. SEGACT MEVOLL
  15. LDIM=IEVOLL(/1)
  16. SEGDES MEVOLL
  17. C
  18. RETURN
  19. END
  20.  
  21.  

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