Télécharger la plaquette Cast3M


fr en

Télécharger dimnoy.eso

Retour à la liste

Numérotation des lignes : 

dimnoy

  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.  
  45. -INC PPARAM
  46. -INC CCOPTIO
  47. *
  48. *
  49. *
  50.       ICODE = 1
  51.       CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU)
  52.       IF (IERR .NE. 0) RETURN
  53. *
  54.       CALL DIMNO1 (IPRIGI,  NOYAU)
  55.       IF (IERR .NE. 0) RETURN
  56. *
  57.       CALL ECRENT (NOYAU)
  58. *
  59.       END
  60.  
  61.  

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