Esope source files

   1 : C CHREP     SOURCE    CHAT      05/01/12    22:02:01     5004           
   2 :       SUBROUTINE CHREP(ENT,SOR,ANG)                                             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION ENT(3),SOR(3)                                                   
   6 : C                                                                               
   7 : C----------------------------------------------                                 
   8 : C     CETTE ROUTINE PERMET DE CHANGER DE      |                                 
   9 : C     REPERE POUR CONTRAINTE ET DEFORMATION   |                                 
  10 : C----------------------------------------------                                 
  11 : C                                                                               
  12 :       S=SIN(ANG)                                                                
  13 :       C=COS(ANG)                                                                
  14 :       CC=C*C                                                                    
  15 :       SS=S*S                                                                    
  16 :       CS=S*C                                                                    
  17 :       SOR(1)=CC*ENT(1)+SS*ENT(2)+2.D0*CS*ENT(3)                                 
  18 :       SOR(2)=CC*ENT(2)+SS*ENT(1)-2.D0*CS*ENT(3)                                 
  19 :       SOR(3)=CS*(ENT(2)-ENT(1))+(CC-SS)*ENT(3)                                  
  20 :       RETURN                                                                    
  21 :       END                                                                       
  22 :