Télécharger la plaquette Cast3M


fr en

Télécharger inco.eso

Retour à la liste

Numérotation des lignes : 

inco

  1. C INCO      SOURCE    PV        17/12/08    21:17:26     9660           
  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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC DECHE
  15. *
  16.       KERRE=0
  17.       IF(IFOUR.NE.2) THEN
  18.          KERRE = 99
  19.          RETURN
  20.       ENDIF
  21.  
  22.       NSTRS = SIG0(/1)
  23.       NVARI = VAR0(/1)
  24.       NMAT  = XMAT(/1)
  25.  
  26.  
  27.       ZK1 =XMAT(1)
  28.       ZK2 =XMAT(1)
  29.       ZK3 =XMAT(2)
  30. *
  31.       DDHOOK(1,1)=ZK1
  32.       DDHOOK(2,2)=ZK2
  33.       DDHOOK(3,3)=ZK3
  34. C
  35. C      calcul de l'increment de contrainte
  36. C
  37.       CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,2)
  38. C
  39. C      ON CALCULE LES CONTRAINTES FINALES
  40. C
  41.       DO I=1,NSTRS
  42.         SIGF(I) = SIG0(I) + DSIGT(I)
  43.       ENDDO
  44. C
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  

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