Télécharger inco.eso

Retour à la liste

Numérotation des lignes :

  1. C INCO SOURCE BP208322 17/03/01 21:17:46 9325
  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
  35. CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,2)
  36. C
  37. C ON CALCULE LES CONTRAINTES FINALES
  38. C
  39. DO I=1,NSTRS
  40. SIGF(I) = SIG0(I) + DSIGT(I)
  41. ENDDO
  42. C
  43. RETURN
  44. END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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