Esope source files

   1 : C ROTREP    SOURCE    CHAT      05/01/13    03:05:35     5004           
   2 :       SUBROUTINE ROTREP(RMAT,VX,VY,VZ)                                          
   3 : C ENTREE  VX VY VZ  3 VECTEURS ORTHOGONAUX  DEFINISSANT LE NOUVEAU REPER        
   4 : C SORTIE  MATRICE DE ROTATION                                                   
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   7 : -INC CCOPTIO                                                                    
   8 :       DIMENSION RMAT(3,3),VX(3),VY(3),VZ(3)                                     
   9 :       DIMENSION VXC(3),VYC(3),VZC(3)                                            
   9 :       CALL BNORM(VXC,VX,3)                                                      
   9 :       CALL BNORM(VYC,VY,3)                                                      
   9 :       CALL BNORM(VZC,VZ,3)                                                      
  10 :       IF(IERR.NE.0) RETURN                                                      
  11 :       DO 10 I=1,3                                                               
  12 :       RMAT(1,I)=VXC(I)                                                          
  13 :       RMAT(2,I)=VYC(I)                                                          
  14 :  10   RMAT(3,I)=VZC(I)                                                          
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :