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