Download CCVCUB8.INC

Back to the list

                                                                                
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)              
                                                                                
C* -INC CCVCUB8  FIN   **************************************************       
                                                                                

© Cast3M 2003 - All rights reserved.
Disclaimer