C KSISI1    SOURCE    OF166741  25/02/20    21:16:50     12165          
      SUBROUTINE KSISI1(xmatjc,JC,WRK2,NCOURB,KERRE)
C KSISIG    SOURCE    STRU      94/06/16    21:26:38     1185
c      SUBROUTINE KSISIG(WRK0,JC,WRK2,NCOURB,KERRE)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC SMEVOLL
-INC SMLREEL
      SEGMENT/WRK2/(TRAC(LTRAC)*D)
      DATA NCOMAX/130/
      KERRE=0
c      MEVOLL=XMAT(JC)
      MEVOLL=nint(xmatjc)
      IF(MEVOLL.EQ.0) THEN
      KERRE=37
      RETURN
      ENDIF
C      SEGACT MEVOLL
      KEVOLL=IEVOLL(1)
C      SEGACT KEVOLL
      MLREEL=IPROGX
      MLREE1=IPROGY
**    SEGDES KEVOLL
C      SEGACT MLREEL,MLREE1
      NBPOIX=PROG(/1)
      NBPOIY=MLREE1.PROG(/1)
      IF(NBPOIX.GT.NCOMAX+1) KERRE=31
      IF(NBPOIX.LT.2)        KERRE=32
      IF(KERRE.EQ.0) GO TO 693
 692  CONTINUE
C
C   ERREUR
C
**    SEGDES MLREEL,MLREE1
**    SEGDES MEVOLL
      GO TO 777
 693  CONTINUE
C
C        VERIFICATION ANODINE
C
      DO 100 I=3,NBPOIX
      I1=I-1
      DEPS=PROG(I)-PROG(I1)
      IF(DEPS.EQ.0.D0) THEN
      KERRE=33
      GO TO 692
      ENDIF
 100  CONTINUE
C
      NCOURB=0
      DO 695 I=1,NBPOIX
      PKSI=PROG(I)
      PK=MLREE1.PROG(I)
      NCOURB=NCOURB+1
      TRAC(2*NCOURB-1)=PKSI
      TRAC(2*NCOURB)=PK
  695 CONTINUE
C
**    SEGDES MLREEL,MLREE1
**    SEGDES MEVOLL
      RETURN
C
  777 CONTINUE
      RETURN
      END