Sources des Includes

 
C* -INC CCVCUB8  DEBUT **************************************************       
C          VECTEURS ET OPERATEURS DE BASE DE L ELEMENT QUA8                     
C OPERATEURS SYMETRIQUES                                                        
 
      REAL*8 S8GGT4,S8SST,S8LAMD,S8GAMA                                         
      REAL*8 G1G3L2,G1G2L3,G2G3L1,S8SL1,S8SL2                                   
      REAL*8 S8SL3,S8L2G3,S8L3G2,S8L1G3,S8L3G1                                  
      REAL*8 S8L2G1,S8L1G2,S8G1G4,S8G2G4,S8G3G4                                 
 
      COMMON/CVCUB8/S8GGT4(8,8),S8SST(8,8),S8LAMD(8,8),S8GAMA(8,8),             
     & G1G3L2(8,8),G1G2L3(8,8),G2G3L1(8,8),S8SL1(8,8),S8SL2(8,8),               
     & S8SL3(8,8),S8L2G3(8,8),S8L3G2(8,8),S8L1G3(8,8),S8L3G1(8,8),              
     & S8L2G1(8,8),S8L1G2(8,8),S8G1G4(8,8),S8G2G4(8,8),S8G3G4(8,8)              
 
      save /cvcub8/
C* -INC CCVCUB8  FIN   **************************************************