Esope source files

   1 : C CRITPE    SOURCE    CHAT      05/01/12    22:30:49     5004           
   2 :       SUBROUTINE CRITPE (AAA, BBB, FT , ISGNE, FFF)
   3 : C Calcul des criteres avec les contraintes principales 
   4 : C 29/06/95
   5 : C
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)
   8 : C
   9 : C======================================================
  10 : C Cette routine calcule le critere de rupture en traction ou compression
  11 : C de la petite surface
  12 : C Les criteres sont ecrits avec les contraintes principales
  13 : C
  14 : C ENTREES:
  15 : C --------
  16 : C    AAA   = Contrainte principale sur laquelle on fait le test
  17 : C    BBB   = Variable d'ecrouissage
  18 : C    FT    = Limite en traction ou traction
  19 : C    ISGNE = Numero du cas
  20 : C            1 --> Critere de traction 
  21 : C           -1 --> Critere de compression 
  22 : C SORTIES:
  23 : C -------
  24 : C    FFF   = Valeur du critere
  25 : C
  26 : C=====================================================
  27 : C
  28 :       FFF = ISGNE*( AAA - BBB - FT )
  29 : C
  30 :       RETURN
  31 :       END 
  32 :  
  33 :