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    CB215821  24/04/12    21:17:21     11897          
  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.       COMMON / CTOURN / XPT1,YPT1,ZPT1,XV1,YV1,ZV1,XV2,YV2,ZV2,
  13.      .                  XVEC,YVEC,ZVEC,ANGLE,ICLE,XP1,YP1,ZP1
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC SMCOORD
  19. -INC SMELEME
  20. -INC CCGEOME
  21. -INC SMRIGID
  22. -INC SMCHPOI
  23. -INC SMMODEL
  24. -INC SMCHAML
  25.  
  26.       IF (IDIM.EQ.1) THEN
  27.         INTERR(1)=IDIM
  28.         CALL ERREUR(709)
  29.         RETURN
  30.       ENDIF
  31.  
  32.       CALL PROPER(3)
  33.  
  34.       RETURN
  35.       END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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