C COTRAD    SOURCE    OF166741  25/09/30    21:15:10     12371          
      SUBROUTINE COTRAD(WRK0,WRK2,NCOURB,KERRE)
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

      SEGMENT WRK0
        REAL*8 XMAT(NCOMAT)
      ENDSEGMENT
      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 (mevoll.IEVOLL(/1).NE.1) THEN
        KERRE=31
        RETURN
      ENDIF
*
*     COURBE  ( SELON Y )
*
      KEVOLL=mevoll.IEVOLL(1)
c//      SEGDES MEVOLL
      SEGACT KEVOLL
      MLREEL = kevoll.IPROGX
      MLREE1 = kevoll.IPROGY
c//      SEGDES KEVOLL
      SEGACT MLREEL,MLREE1
      NBPOIX=mlreel.PROG(/1)
      NBPOIY=MLREE1.PROG(/1)

*   ERREUR(S)
      IF (NBPOIX.NE.NBPOIY) KERRE=31
      IF (NBPOIX.GT.7) KERRE=31
      IF (NBPOIX.LT.4) KERRE=32
      IF (KERRE.NE.0) GOTO 999

      DO I = 1, NBPOIX
        NCOURB=NCOURB+1
        TRAC(2*NCOURB-1) = MLREE1.PROG(I)
        TRAC(2*NCOURB)   = MLREEL.PROG(I)
      ENDDO

 999  CONTINUE
      SEGDES,MLREEL,MLREE1

      RETURN
      END