Télécharger CCVCUB8.INC

Retour à la liste

Numérotation des lignes :

  1.  
  2. C* -INC CCVCUB8 DEBUT **************************************************
  3. C VECTEURS ET OPERATEURS DE BASE DE L ELEMENT QUA8
  4. C OPERATEURS SYMETRIQUES
  5.  
  6. REAL*8 S8GGT4,S8SST,S8LAMD,S8GAMA
  7. REAL*8 G1G3L2,G1G2L3,G2G3L1,S8SL1,S8SL2
  8. REAL*8 S8SL3,S8L2G3,S8L3G2,S8L1G3,S8L3G1
  9. REAL*8 S8L2G1,S8L1G2,S8G1G4,S8G2G4,S8G3G4
  10.  
  11. COMMON/CVCUB8/S8GGT4(8,8),S8SST(8,8),S8LAMD(8,8),S8GAMA(8,8),
  12. & G1G3L2(8,8),G1G2L3(8,8),G2G3L1(8,8),S8SL1(8,8),S8SL2(8,8),
  13. & S8SL3(8,8),S8L2G3(8,8),S8L3G2(8,8),S8L1G3(8,8),S8L3G1(8,8),
  14. & S8L2G1(8,8),S8L1G2(8,8),S8G1G4(8,8),S8G2G4(8,8),S8G3G4(8,8)
  15.  
  16. C* -INC CCVCUB8 FIN **************************************************
  17.  
  18.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales