C CEREPS    SOURCE    CHAT      05/01/12    21:52:20     5004
      SUBROUTINE CEREPS(COORD,DEPLA,DEFO,IDEUX,KERRE)
C-----------------------------------------------------------------------
C             CALCUL DES DEFORMATIONS POUR LA CERCE
C
C  ENTREE
C          DEPLA   DEPLACEMENTS
C          COORD   COORDONNEES DU NOEUD
C          IDEUX   INDICE POUR DEFORMATIONS DU 2-EME ORDRE
C
C  SORTIE
C          DEFO    DEFORMATION AU NOEUD
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC CCREEL
      DIMENSION DEFO(*),COORD(3,*),DEPLA(*)
*
      KERRE=0
      R = COORD(1,1)
      IF(ABS(R).LE.XPETIT) THEN
        KERRE=1
        RETURN
      ENDIF
*
      IF(IFOUR.EQ.0) THEN
        EPS=DEPLA(1)/R
        IF(IDEUX.NE.0) THEN
          EPS = EPS + 0.5D0*(DEPLA(1)/R)**2
        ENDIF
      ELSE IF(IFOUR.EQ.1) THEN
        AN=DBLE(NIFOUR)
        EPS=(DEPLA(1) + AN * DEPLA (3))/R
*       IF(IDEUX.NE.0) THEN
*   CECI  N'A PAS GRAND SENS CAR IL Y A DES TERMES
*   EN SIN**2 ET EN COS**2
*       ENDIF
      ELSE
        KERRE=2
        RETURN
      ENDIF
      DEFO(1)=EPS
      RETURN
      END