Télécharger dimen9.eso

Retour à la liste

Numérotation des lignes :

  1. C DIMEN9 SOURCE CHAT 05/01/12 22:50:54 5004
  2. SUBROUTINE DIMEN9 (IPOINT,LDIM)
  3. C
  4. C DIMENSION D UN OBJET CHARGEME
  5. C e' il numero totale di oggetti CHARGEME
  6. C
  7. C Ispra vr-lp Giu92
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. -INC SMCHARG
  11. C
  12. MCHARG=IPOINT
  13. SEGACT MCHARG
  14. LDIM=KCHARG(/1)
  15. SEGDES MCHARG
  16. C
  17. RETURN
  18. END
  19.  
  20.  
  21.  

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