Esope source files

   1 : C CFBB      SOURCE    KICH      09/09/11    21:15:50     6505           
   2 : C CFBB      SOURCE    AM        05/06/17    21:15:01     5116           
   3 :       SUBROUTINE CFBB(WRK52,WRK53,WRK54,wrk27,IB,IGAU,NBPGAU,
   4 :      &                       IECOU,LEPLAS)
   5 : C
   6 : C______________________________________________________________________
   7 : C
   8 : C    MODELES FBB1 ET FBB2
   9 : C______________________________________________________________________
  10 : C
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)
  13 : -INC CCOPTIO
  14 : -INC DECHE
  15 : *
  16 :       KERRE=0
  17 :       LESDEU = LEPLAS - 127
  18 :       NSTRS = SIG0(/1)
  19 : C
  20 : C
  21 : C     calcul de la matrice elastique
  22 : C
  23 :       CMATE = 'ISOTROPE'
  24 :       KCAS=2
  24 :       CALL DOHMAS(XMAT,CMATE,IFOUR,NSTRS,KCAS,DDHOOK,IRTD)
  25 : *
  26 :       IF ( IRTD .NE. 1) THEN
  27 :          print*,'erreur dans dohmas'
  28 :          KERRE=56
  29 :          RETURN
  30 :       ENDIF
  31 : C
  32 : C      calcul de l'increment de contrainte
  33 : C
  33 :       CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,1)
  34 : C
  35 : C      ON CALCULE LES CONTRAINTES FINALES
  36 : C
  37 :       DO I=1,NSTRS
  38 :         SIGF(I) = SIG0(I) + DSIGT(I)
  39 :       ENDDO
  40 : C
  41 :       RETURN
  42 :       END
  43 :  
  44 :  
  45 : 
  46 : 
  47 :  
  48 :  
  49 : 
  50 : 
  51 : 
  52 : 
  53 :  
  54 :  
  55 :  
  56 :  
  57 :  
  58 :  
  59 :