C COTRA2    SOURCE    OF166741  25/09/30    21:15:06     12371          

      SUBROUTINE COTRA2(WRK0,WRK2,NCOURB,KERRE)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC SMEVOLL
-INC SMLREEL

      SEGMENT/WRK0/(XMAT(NCOMAT)*D)
      SEGMENT/WRK2/(TRAC(LTRAC)*D)
*
*     QUELQUES INITIALISATIONS A 0
*
      KERRE=0
      NCOURB=0

      LTRAC = wrk2.TRAC(/1)
      CALL ZDANUL(TRAC,LTRAC)
*
*     LOIS MOMENT-COURBURE ...
*
      MEVOLL=nint(XMAT(5))
      IF (MEVOLL.EQ.0) THEN
        KERRE=37
        RETURN
      ENDIF

      SEGACT,MEVOLL
      JOJO = IEVOLL(/1)
      IF (JOJO.NE.1.AND.JOJO.NE.2) THEN
        KERRE=31
        GOTO 777
      ENDIF
*
*     PREMIERE COURBE  ( SELON Y )
*
      DO 5 IJOJO=1,2
        IF (JOJO.EQ.1) KEVOLL=IEVOLL(1)
        IF (JOJO.EQ.2) KEVOLL=IEVOLL(IJOJO)
        SEGACT,KEVOLL
        MLREEL = kevoll.IPROGX
        MLREE1 = kevoll.IPROGY
        SEGDES,KEVOLL
        SEGACT,MLREEL,MLREE1
        NBPOIX = mlreel.PROG(/1)
        NBPOIY = MLREE1.PROG(/1)

*   ERREURS sur les courbes
        IF (NBPOIX.NE.NBPOIY) THEN
          KERRE=31
        ENDIF
        IF (NBPOIX.GT.9) THEN
          KERRE=31
        ELSE IF (NBPOIX.LT.5) THEN
          KERRE=32
        ENDIF
        IF (KERRE.NE.0) THEN
          SEGDES MLREEL,MLREE1
          GOTO 777
        ENDIF

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

        SEGDES MLREEL,MLREE1

   5  CONTINUE

 777  CONTINUE
C*//      SEGDES,MEVOLL

      RETURN
      END