Télécharger la plaquette Cast3M


fr en

Télécharger barlab.eso

Retour à la liste

Numérotation des lignes : 

barlab

  1. C BARLAB    SOURCE    PV        22/04/21    22:38:00     11344          
  2. C
  3.       SUBROUTINE BARLAB(XMAT,XCAR,DEPST,SIG0,VAR0,SIGF,VARF,DEFP)
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7.       DIMENSION XMAT(13),VAR0(8),VARF(8),depst(*),xsig0(3),xsigf(3)
  8. C----------------------------------------------------------------------
  9. C     Didier COMBESCURE
  10. C
  11. C     DRIVER MODELE BETON UNILATERAL
  12. C
  13. C----------------------------------------------------------------------
  14. C
  15. C
  16. C----------------------------------------------------------------------
  17. *
  18. C
  19.        XSECT = XCAR
  20.        XSIG0(1) = SIG0/XSECT
  21. C
  22. C
  23. C
  24.        CALL LABORD(XMAT,DEPST,XSIG0,VAR0,XSIGF,VARF)
  25. C
  26. C
  27.        SIGF = XSECT*XSIGF(1)
  28. C
  29. C
  30.        RETURN
  31.        END
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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