Télécharger la plaquette Cast3M


fr en

Télécharger dime11.eso

Retour à la liste

Numérotation des lignes : 

dime11

  1. C DIME11    SOURCE    CB215821  22/09/20    21:15:03     11459          
  2.  
  3. * DIMENSION D'UN OBJET DE TYPE "LISTOBJE".
  4.       SUBROUTINE DIME11 (IPOINT,LDIM)
  5. ************************************************************************
  6. *
  7. *                             D I M E N 1
  8. *                             -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     DETERMINER LA DIMENSION D'UN OBJET DE TYPE "LISTOBJE".
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. *     CALL DIME11 (IPOINT,LDIM)
  19. *
  20. * PARAMETRES:  (E)=ENTREE   (S)=SORTIE
  21. * -----------
  22. *
  23. *     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTOBJE".
  24. *     LDIM    ENTIER    (S)  DIMENSION DE L'OBJET.
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. *
  29. *     CLEMENT BERTHINIER     19 SEPTEMBRE 2022
  30. *
  31. * LANGAGE:
  32. * --------
  33. *
  34. *     ESOPE + FORTRAN77
  35. *
  36. ************************************************************************
  37. *
  38.       IMPLICIT INTEGER(I-N)
  39.  
  40. -INC SMLOBJE
  41.  
  42.       MLOBJE=IPOINT
  43.       SEGACT,MLOBJE
  44.       LDIM=MLOBJE.LISOBJ(/1)
  45.       END
  46.  
  47.  

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