Télécharger la plaquette Cast3M


fr en

Télécharger valprp.eso

Retour à la liste

Numérotation des lignes : 

valprp

  1. C VALPRP    SOURCE    CHAT      05/01/13    04:01:13     5004
  2.       SUBROUTINE VALPRP(S11,S22,S33,S12,S23,S13,S1,S2,S3)
  3. C=======================================================================
  4. C
  5. C                 CALCUL DES VALEURS PROPRES
  6. C
  7. C=======================================================================
  8. C
  9. C     CREATION : F.CORMERY
  10. C                E.N.S.M.A - LMPM
  11. C                DEC 1992
  12. C
  13. C=======================================================================
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8 (A-H,O-Z)
  16. C----------------
  17.       SN11=S11
  18.       SN22=S22
  19.       SN33=S33
  20.       SN12=S12
  21.       SN23=S23
  22.       SN13=S13
  23. C-------  CALCUL DES 3 INVARIANTS A,B,C
  24.       A=SN11+SN22+SN33
  25.       B=SN22*SN33-SN23*SN23+SN33*SN11-SN13*SN13+SN11*SN22-SN12*SN12
  26.       C=SN11*(SN22*SN33-SN23*SN23)-SN12*(SN12*SN33-SN13*SN23)+
  27.      1  SN13*(SN12*SN23-SN13*SN22)
  28.       A=-A
  29.       C=-C
  30. C-------  CALCUL DES CONTRAINTES PRINCIPALES
  31.       CALL EQUAT3(A,B,C,SN1,SN2,SN3)
  32. C-------
  33.       S1=SN1
  34.       S2=SN2
  35.       S3=SN3
  36. C------  FIN
  37. 10    RETURN
  38.       END
  39.  
  40.  
  41.  
  42.  

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