Esope source files

   1 : C BIFLX1    SOURCE    CHAT      05/01/12    21:40:01     5004           
   2 :       SUBROUTINE BIFLX1(DDHOOK,LHOOK,VELA)
   3 : C
   4 : C=======================================================================
   5 : C
   6 : C  CAS SECTION: REMPLISSAGE DE VELA POUR FONCTIONER AVEC CALSIG
   7 : C               QUAND MATRICE DE HOOKE ELASTIQUE DEJA CALCULEE
   8 : C
   9 : C  ENTREES
  10 : C     DDHOOK(LHOOK,LHOOK) = matrice de hooke
  11 : C     LHOOK  = taille de la matrice de hooke
  12 : C
  13 : C  SORTIES
  14 : C     VELA() = materiau dans un tableau de travail
  15 : C
  16 : C=======================================================================
  17 : C     Pierre Pegon (ISPRA) 28/2/96
  18 : C=======================================================================
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)
  21 : C+PPf
  22 : -INC CCOPTIO
  23 : C+PPf
  24 : C
  25 :       DIMENSION VELA(*),DDHOOK(LHOOK,*)
  26 : C
  27 : C+PPf
  28 : C
  29 :             IF(IFOUR.EQ.2) THEN
  30 : C+PPf
  31 :       VELA(1) = DDHOOK(1,1)
  32 :       VELA(2) =-DDHOOK(6,1)
  33 :       VELA(3) = DDHOOK(5,1)
  34 :       VELA(4) = DDHOOK(6,6)
  35 :       VELA(5) =-DDHOOK(6,5)
  36 :       VELA(6) = DDHOOK(5,5)
  37 :       VELA(7) = DDHOOK(3,3)
  38 :       VELA(8) = DDHOOK(2,2)
  39 :       VELA(9) = DDHOOK(4,3)
  40 :       VELA(10)=-DDHOOK(4,2)
  41 :       VELA(11)= DDHOOK(4,4)/2
  42 :       VELA(12)= VELA(11)
  43 : C+PPf
  44 : C
  45 :            ELSEIF(IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  46 :       VELA(1) = DDHOOK(1,1)
  47 :       VELA(2) =-DDHOOK(1,3)
  48 :       VELA(3) = DDHOOK(3,3)
  49 :       VELA(4) = DDHOOK(2,2)
  50 :            ENDIF
  51 : C+PPf
  52 : C
  53 :       RETURN
  54 :       END
  55 :  
  56 :  
  57 :