Télécharger dimen7.eso

Retour à la liste

Numérotation des lignes :

dimen7
  1. C DIMEN7 SOURCE CHAT 05/01/12 22:50:48 5004
  2. SUBROUTINE DIMEN7 (IPOINT,LDIM)
  3. C
  4. C DIMENSION D UN OBJET TABLE
  5. C C EST LE NOMBRE D INDICES DANS LA TABLE
  6. C
  7. C M.PETIT 24/2/88
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. -INC SMTABLE
  11. C
  12. MTABLE=IPOINT
  13. SEGACT MTABLE
  14. LDIM=MLOTAB
  15. SEGDES MTABLE
  16. C
  17. RETURN
  18. END
  19.  
  20.  
  21.  

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