Télécharger la plaquette Cast3M


fr en

Télécharger kriter.eso

Retour à la liste

Numérotation des lignes : 

kriter

  1. C KRITER    SOURCE    CHAT      05/01/13    01:07:35     5004
  2.       SUBROUTINE KRITER(IC,ALFADV,ALFAD1,ALFAD2,VMELAS,DPELAS,
  3.      .DPELA1,DPELA2,PORELA,PENTE1,PENTE2,PENTE3,DPLAM,S,FS,FC,KERRE)
  4. C
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. C
  11.       DIMENSION S(*)
  12. C
  13.       TRS=S(1)+S(2)+S(3)
  14.       SEQ2=AVM(S,S)
  15.       SEQ=SQRT(SEQ2)
  16.       GO TO(100,200,300,400,500),IC
  17.       WRITE(IOIMP,10) IC
  18.       KERRE=640
  19.       RETURN
  20. C
  21. C CRITERE DE LA POROSITE (1)
  22. C
  23.   100 FS=-TRS/3.D0
  24.       PORELA=PORELA+PENTE3*DPLAM
  25.       FC=FS-PORELA
  26.       RETURN
  27. C
  28. C CRITERE DE DRUCKER DUCTILE (2)
  29. C
  30.   200 FS=ALFADV*TRS+SEQ
  31.       FC=FS-DPELAS
  32.       RETURN
  33. C
  34. C CRITERE DE VON MISES (3)
  35. C
  36.   300 FS=SEQ
  37.       VMELAS=VMELAS+PENTE1*DPLAM
  38.       FC=FS-VMELAS
  39.       RETURN
  40. C
  41. C CRITERE DE DRUCKER FRAGILE (4)
  42. C
  43.   400 FS=ALFAD1*TRS+SEQ
  44.       FC=FS-DPELA1
  45.       RETURN
  46. C
  47. C CRITERE DE DRUCKER FRAGILE ECROUI. (5)
  48. C
  49.   500 FS=ALFAD2*TRS+SEQ
  50.       DPELA2=DPELA2+PENTE2*DPLAM
  51.       FC=FS-DPELA2
  52. C
  53.    10 FORMAT(1X,'ERREUR DANS KRITER IL FAUT DETERMINER (IC) IC=',I4)
  54. C
  55.       RETURN
  56.       END
  57.  
  58.  

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