Esope source files

   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
  22 :       CALL ZERO(A,3,3)
  23 :       A(1,1)=EPOUSI(1)
  24 :       A(2,2)=EPOUSI(2)
  25 :       A(3,3)=EPOUSI(3)
  26 :       A(1,2)=EPOUSI(4)/IMOD
  27 :       A(2,1)=A(1,2)
  28 :       IF(IFOUR2.GE.1.OR.IFOUR2.LE.-3) THEN
  29 :         A(3,1)=EPOUSI(5)/IMOD
  30 :         A(1,3)=A(3,1)
  31 :         A(3,2)=EPOUSI(6)/IMOD
  32 :         A(2,3)=A(3,2)
  33 :       ENDIF
  34 : C
  35 :       RETURN
  36 :       END
  37 :  
  38 :