Télécharger la plaquette Cast3M


fr en

Télécharger endocb.eso

Retour à la liste

Numérotation des lignes : 

endocb

  1. C ENDOCB    SOURCE    CHAT      05/01/12    23:39:02     5004
  2.       SUBROUTINE ENDOCB(EPOUSI,A,IMOD,IFOUR2)
  3. C_______________________________________________________________________
  4. C
  5. C     CHARGEMENT DE A POUR LA DIAGONALISATION JACOB3
  6. C
  7. C     PP 27/8/91
  8. C
  9. C     18/10/91 se souvenir que GAMMA a encore frappe !
  10. C     =====> diviser par 2 les termes de cisaillement
  11. C     ET DISCOSSIER EPS ET STR: IMOD=1--->STR IMOD=2--->EPS
  12. C
  13. C     Modif L.Bode - 14/10/92 - Ajout du parametre IFOUR2
  14. C     ( Coques IFOUR2 = -2 , Massifs IFOUR2 = IFOUR)
  15. C      => Suppression de INC CCOPTIO
  16. C_______________________________________________________________________
  17. C
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20.       DIMENSION EPOUSI(*),A(3,3)
  21. *
  22. C
  23.       CALL ZERO(A,3,3)
  24.       A(1,1)=EPOUSI(1)
  25.       A(2,2)=EPOUSI(2)
  26.       A(3,3)=EPOUSI(3)
  27.       A(1,2)=EPOUSI(4)/IMOD
  28.       A(2,1)=A(1,2)
  29.       IF(IFOUR2.GE.1.OR.IFOUR2.LE.-3) THEN
  30.         A(3,1)=EPOUSI(5)/IMOD
  31.         A(1,3)=A(3,1)
  32.         A(3,2)=EPOUSI(6)/IMOD
  33.         A(2,3)=A(3,2)
  34.       ENDIF
  35. C
  36.       RETURN
  37.       END
  38.  
  39.  
  40.  

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