Esope source files

   1 : C VECROT    SOURCE    CHAT      05/01/13    04:04:48     5004           
   2 :       SUBROUTINE VECROT(VROT,VROTL,P)                                    
   3 : C-----------------------------------------------------------------------        
   4 : C  ROUTINE DE PASSAGE D UNE MATRICE ELEMENTAIRE DES AXES LOCAUX AUX AXES        
   5 : C  GLOBAUX                                                                      
   6 : C  POUR UNE MATRICE ANTISYMETRIQUE                                                              
   7 : C                                                                               
   8 : C  ENTREE                                                                       
   9 : C         LRE    NOMBRE DE LIGNES DU TABLEAU REL                                
  10 : C         P      MATRICE DE PASSAGE                                             
  11 : C         RP     MATRICE ELEMENTAIRE 12X12 EN AXES LOCAUX                       
  12 : C                                                                               
  13 : C  SORTIE                                                                       
  14 : C         REL    MATRICE ELEMENTAIRE EN AXES GLOBAUX                            
  15 : C                                                                               
  16 : C        Didier COMBESCURE Mars 2003                                                      
  17 : C-----------------------------------------------------------------------        
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  20 :       DIMENSION P(3,3),VROT(3),VROTL(3)                                    
  21 : C
  22 :        DO 10 I=1,3
  23 :    10    VROTL(I)=  0.
  24 : C
  25 :        DO 20 I1=1,3
  26 :          DO 30 I2=1,3
  27 :          VROTL(I1) = VROTL(I1) + (P(I1,I2)*VROT(I2))
  28 :    30    CONTINUE
  29 :    20  CONTINUE
  30 : C
  31 :                                                                
  32 :       RETURN                                                                    
  33 :       END             
  34 :                                                    
  35 :  
  36 :