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