Télécharger invii1.eso

Retour à la liste

Numérotation des lignes :

  1. C INVII1 SOURCE CHAT 05/01/13 00:43:03 5004
  2. c
  3. c Nucleo de calculo de invariantes,
  4. c matrices de elasticidad lineal para pequeñas deformaciones,
  5. c y calculos asociados a descomposicion LU
  6. c
  7. CCC
  8. C **********************************************************************
  9. CCC
  10. SUBROUTINE INVARI_I1 (SIG,N,I1)
  11. IMPLICIT INTEGER(I-N)
  12. integer n
  13. real*8 sig(n),I1
  14. I1=sig(1)+sig(2)+sig(3)
  15. return
  16. end
  17.  
  18.  
  19.  
  20.  

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