Esope source files

   1 : C INCO      SOURCE    KICH      09/09/11    21:18:07     6505           
   2 :       SUBROUTINE INCO(WRK52,WRK53,WRK54,WRK27,IB,IGAU,NBPGAU)
   3 : C
   4 : C______________________________________________________________________
   5 : C
   6 : C    MODELE  INCO
   7 : C______________________________________________________________________
   8 : C
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)
  11 : -INC CCOPTIO
  12 : -INC DECHE
  13 : *
  14 :       KERRE=0
  15 :       IF(IFOUR.NE.2) THEN
  16 :          KERRE = 99
  17 :          RETURN
  18 :       ENDIF
  19 : 
  20 :       NSTRS = SIG0(/1)
  21 :       NVARI = VAR0(/1)
  22 :       NMAT  = XMAT(/1)
  23 : 
  24 : 
  25 :       ZK1 =XMAT(1)
  26 :       ZK2 =XMAT(1)
  27 :       ZK3 =XMAT(2)
  28 : *
  29 :       DDHOOK(1,1)=ZK1
  30 :       DDHOOK(2,2)=ZK2
  31 :       DDHOOK(3,3)=ZK3
  32 : C
  33 : C      calcul de l'increment de contrainte
  34 : C
  34 :       CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,2)
  35 : C
  36 : C      ON CALCULE LES CONTRAINTES FINALES
  37 : C
  38 :       DO I=1,NSTRS
  39 :         SIGF(I) = SIG0(I) + DSIGT(I)
  40 :       ENDDO
  41 : C
  42 :       RETURN
  43 :       END
  44 :  
  45 :  
  46 :  
  47 :  
  48 :