Télécharger la plaquette Cast3M


fr en

Télécharger liscri.eso

Retour à la liste

Numérotation des lignes : 

liscri

  1. C LISCRI    SOURCE    CHAT      05/01/13    01:22:21     5004
  2.       SUBROUTINE LISCRI(SIG0,XMAT,XCAR,
  3.      1     KERRE,CRITER)
  4. C----------------------------------------------------------------------
  5. C                    CRITERE LINESPRING
  6. C----------------------------------------------------------------------
  7. C ENTREES
  8. C     SIG0(NSTRS) = CONTRAINTES INITIALES
  9. C     XMAT(NCOMAT)=  COMPOSANTES DE MATERIAU
  10. C     XCAR(ICARA) =  CARACTERISTIQUES
  11. C     NPOITR      =   NOMBRE DE POINT SUR LA COURBE DE TRACTION
  12. C  SORTIES
  13. C     CRITER        = LE CRITERE
  14. C     KERRE   = 0    TOUT OK
  15. C             = 33   LIMITE ELASTIQUE NULLE
  16. C-----------------------------------------------------------------------
  17.       IMPLICIT INTEGER(I-N)
  18.       IMPLICIT REAL*8(A-H,O-Z)
  19.       DIMENSION SIG0(*),XMAT(*),XCAR(*)
  20. C
  21.       SIGY=XMAT(5)
  22.       IF(SIGY.EQ.0.D0) KERRE=30
  23.       IF(SIGY.EQ.0.D0) GOTO 666
  24. C
  25. C     ON RECUPERE L EPAISSEUR
  26. C
  27.       W  = XCAR(1)
  28.       FI = XCAR(2)
  29.       QSI= FI / W
  30. C
  31. C     ON CALCULE LES PARAMETRES POUR CALCULER LE CRITERE
  32. C                                             ET SA DERIVEE
  33.       CALL LISPPA(QSI,W,SIGY,GA,GB,A,B,C,D,E,F)
  34. C
  35.       XN0=SIG0(1)
  36.       XM0=SIG0(4)
  37. C
  38. C     CALCUL DU CRITERE
  39. C
  40.       CALL LISPQ(XN0,XM0,W,SIGY,GA,GB,QSI,Q1)
  41.       CRITER=Q1
  42. C
  43. C
  44.  666  CONTINUE
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

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