Esope source files

   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
  32 :       CALL LISPPA(QSI,W,SIGY,GA,GB,A,B,C,D,E,F)
  33 : C     
  34 :       XN0=SIG0(1)
  35 :       XM0=SIG0(4)
  36 : C     
  37 : C     CALCUL DU CRITERE
  38 : C     
  38 :       CALL LISPQ(XN0,XM0,W,SIGY,GA,GB,QSI,Q1)
  39 :       CRITER=Q1
  40 : C     
  41 : C     
  42 :  666  CONTINUE
  43 :       RETURN
  44 :       END
  45 : 
  46 : 
  47 : 
  48 : 
  49 :  
  50 :