Sources Esope | Cast3M

tufp1
C TUFP1     SOURCE    CHAT      05/01/13    03:56:42     5004
      FUNCTION TUFP1(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:TUFP1    VALEUR DE LA FONCTION
C=======================================================================
      TUFP1=SIN(THETA)/2.D0
      TUFP1=TUFP1-COS((THETA+XPI*XP/XP0)/2.D0)
      TUFP1=TUFP1+XM/XM0
      RETURN
      END