Télécharger la plaquette Cast3M


fr en

Télécharger tourne.eso

Retour à la liste

Numérotation des lignes : 

tourne

  1. C TOURNE    SOURCE    SP204843  25/03/14    21:15:11     12201          
  2.  
  3. C  Ce sous-programme prepare la rotation d'un objet
  4. C  Modif KICH 11/97
  5. C  10/2003 : cas IDIM=1, operateur indisponible.
  6.  
  7.       SUBROUTINE TOURNE
  8.  
  9.       IMPLICIT INTEGER(I-N)
  10.       IMPLICIT REAL*8 (A-H,O-Z)
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMCOORD
  15. -INC SMELEME
  16. -INC CCGEOME
  17. -INC SMRIGID
  18. -INC SMCHPOI
  19. -INC SMMODEL
  20. -INC SMCHAML
  21. -INC CCTOURN
  22.  
  23.       IF (IDIM.EQ.1) THEN
  24.         INTERR(1)=IDIM
  25.         CALL ERREUR(709)
  26.         RETURN
  27.       ENDIF
  28.  
  29.       CALL PROPER(3)
  30.  
  31.       RETURN
  32.       END
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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