Sources Esope | Cast3M

tufp2
C TUFP2     SOURCE    CHAT      05/01/13    03:56:46     5004
      FUNCTION TUFP2(XM,XP,THETA,XM0,XP0)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C    Include contenant quelques constantes dont XPI :
-INC CCREEL
C=======================================================================
C     CALCULE LA VALEUR DE LA FONCTION DE CHARGE EN OUVERTURE
C     IL EST APPELE PAR TUFIPA
C
C     ENTREES:XM      VALEUR DU MOMENT
C             XP      VALEUR DE L EFFORT NORMAL
C             THETA   ANGLE DE LA FISSURE
C
C     SORTIE:TUFP2    VALEUR DE LA FONCTION
C=======================================================================
      TUFP2=SIN(THETA)/2.D0
      TUFP2=TUFP2-COS((THETA-XPI*XP/XP0)/2.D0)
      TUFP2=TUFP2-XM/XM0
      RETURN
      END