Télécharger la plaquette Cast3M


fr en

Télécharger dimen6.eso

Retour à la liste

Numérotation des lignes : 

dimen6

  1. C DIMEN6    SOURCE    CHAT      05/01/12    22:50:44     5004
  2.       SUBROUTINE DIMEN6 (IPOINT,LDIM)
  3. ************************************************************************
  4. *
  5. *                             D I M E N 6
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *    DETERMINER LA DIMENSION D'UN OBJET DE TYPE "LISTMOTS".
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16.       IMPLICIT INTEGER(I-N)
  17. -INC SMLMOTS
  18. *
  19. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  20. * -----------
  21. *
  22. *    IPOINT  ENTIER (E)    POINTEUR DE L'OBJET DE TYPE "LISTMOTS".
  23. *    LDIM    ENTIER (S)    DIMENSION DE L'OBJET.
  24. *
  25. * AUTEUR, DATE DE CREATION:
  26. * -------------------------
  27. *
  28. *     DENIS  ROBERT      LE 13 OCTOBRE 1987
  29. *
  30. * LANGAGE:
  31. * --------
  32. *
  33. *     ESOPE + FORTRAN77
  34. *
  35. ************************************************************************
  36. *
  37.       MLMOTS=IPOINT
  38.       SEGACT,MLMOTS
  39.       LDIM=MOTS(/2)
  40.       SEGDES,MLMOTS
  41. *
  42.       END
  43.  
  44.  

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