Télécharger dimnoy.eso

Retour à la liste

Numérotation des lignes :

  1. C DIMNOY SOURCE CHAT 05/01/12 22:51:06 5004
  2. SUBROUTINE DIMNOY
  3. ************************************************************************
  4. *
  5. * D I M N O Y
  6. * -----------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "DIMNOYAU"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * DIMENSION DU NOYAU D'UN OBJET (ACTUELLEMENT, 'RIGIDITE' SEULEMENT)
  14. *
  15. * PHRASE D'APPEL (EN GIBIANE):
  16. * ----------------------------
  17. *
  18. * NOMBRE = DIMNOYAU RIGID ;
  19. *
  20. * ARGUMENTS (EN GIBIANE):
  21. * -----------------------
  22. *
  23. * RIGID 'RIGIDITE'
  24. * NOMBRE 'ENTIER ' DIMENSION DU NOYAU DE L'OBJET.
  25. *
  26. * SOUS-PROGRAMMES APPELES:
  27. * ------------------------
  28. *
  29. * LIRE, ECRIRE, DIMNO1.
  30. *
  31. * AUTEUR, DATE DE CREATION:
  32. * -------------------------
  33. *
  34. * PASCAL MANIGOT 10 SEPTEMBRE 1985
  35. *
  36. * LANGAGE:
  37. * --------
  38. *
  39. * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  40. *
  41. ************************************************************************
  42. *
  43. IMPLICIT INTEGER(I-N)
  44. -INC CCOPTIO
  45. *
  46. *
  47. *
  48. ICODE = 1
  49. CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU)
  50. IF (IERR .NE. 0) RETURN
  51. *
  52. CALL DIMNO1 (IPRIGI, NOYAU)
  53. IF (IERR .NE. 0) RETURN
  54. *
  55. CALL ECRENT (NOYAU)
  56. *
  57. END
  58.  
  59.  

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