C COTRAF    SOURCE    PV        11/03/07    21:16:04     6885           
C COTRAD    SOURCE    AM        95/12/27    21:25:21     1962           
      SUBROUTINE COTRAF(wrk52,wrk53,WRK2,NCOURB)
C-----------------------------------------------------------------
C
C     RECUPERAGE DE COURBE ADAPTE A TAKEDA
C
C     PP 18/9/92
C-----------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC SMEVOLL
-INC SMLREEL
-INC DECHE

      SEGMENT WRK2
        REAL*8 TRAC(LTRAC)
      ENDSEGMENT
*
*     QUELQUES INITIALISATIONS A 0
*
      KERRE=0
      NCOURB=0
      LTRAC=TRAC(/1)
      CALL ZDANUL(TRAC,LTRAC)
*
*     LOIS MOMENT-COURBURE ...
*
      MEVOLL=nint(XMAT(5))
      IF(MEVOLL.EQ.0) THEN
        KERRE=37
        RETURN
      ENDIF
      SEGACT MEVOLL
      IF(IEVOLL(/1).NE.1) THEN
        KERRE=31
        SEGDES MEVOLL
        RETURN
      ENDIF
*
*     COURBE  ( SELON Y )
*
      KEVOLL=IEVOLL(1)
      SEGACT KEVOLL
      MLREEL=IPROGX
      MLREE1=IPROGY
      SEGDES KEVOLL
      SEGACT MLREEL,MLREE1
      NBPOIX=PROG(/1)
      NBPOIY=MLREE1.PROG(/1)
      IF(NBPOIX.NE.NBPOIY) KERRE=31
      IF(NBPOIX.GT.7) KERRE=31
      IF(NBPOIX.LT.4) KERRE=32
*
*   ERREUR
*
      IF(KERRE.NE.0) THEN
        SEGDES MLREEL,MLREE1
        SEGDES MEVOLL
        RETURN
      ENDIF
*
      DO 10 I=1,NBPOIX
        PEPS=PROG(I)
        PSIG=MLREE1.PROG(I)
        NCOURB=NCOURB+1
        TRAC(2*NCOURB-1)=PSIG
        TRAC(2*NCOURB)  =PEPS
  10  CONTINUE
C
      SEGDES MLREEL,MLREE1
      SEGDES MEVOLL
      RETURN
      END