Esope source files

   1 : C TOURNE    SOURCE    CHAT      11/03/16    21:32:35     6902           
   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
  14 : 
  15 : -INC CCOPTIO
  16 : -INC SMCOORD
  17 : -INC SMELEME
  18 : -INC CCGEOME
  19 : -INC SMRIGID
  20 : -INC SMCHPOI
  21 : -INC SMMODEL
  22 : -INC SMCHAML
  23 : 
  24 :       IF (IDIM.EQ.1) THEN
  25 :         INTERR(1)=IDIM
  25 :         CALL ERREUR(709)
  26 :         RETURN
  27 :       ENDIF
  28 : 
  28 :       CALL PROPER(3)
  29 : 
  30 :       RETURN
  31 :       END
  32 : 
  33 :  
  34 :  
  35 :  
  36 :  
  37 :  
  38 :  
  39 :  
  40 :  
  41 :